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1 
2 
3 
4 

5 
6 
7 
0 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



IDENTIFICATION 



.REM £ 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT OA IE 
MAINTAir«R: 



AC FG67B-MC 

COKDDBO KOJll DA CLUSTER DIAG. 

APRIL. 1986 
DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UITHCJT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A CQttllTMFNT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES W 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 



NO RESPONSIBILITY IS ASSUMED FOR THE USE 
SOTTUARE ON EQUIPMENT THAT IS NOT SUPPLIED 
AFFILIATED COMPANIES. 



OR RELIABILITY OF 
BY DIGITAL OR ITS 



COPYRIGHT (C) 1986 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

MASS6US 



DIGITAL 
DEC 



POP 
DECUS 



UNIBUS 
DECTAPE 
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SEQ 0004 



94 
95 
% 
97 
98 
99 
100 
101 
102 
J 03 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 

ni 

116 
117 
118 
119 
120 
121 
122 
123 
124 



1.0 



PROGRAM ABSTRACT 



Jh's program tests out KUJll um lku board, includmo 
on boai d_MEMORY , on-board ROM's, serial line unit. line time clocks. 



tests out KDJll DA CPU board, including the Jll chip set, 
DRY, on-boar<' 
and the Bus Arbitrafon. 



The KDJll -DA is a POP 11 CPU that incorporates the Jll chip set as the 
heart of the processor. It Is a quad height Q22 bus module. It has 
512 KB of on board memorv. The memory has parity detection and is 
located on 18 256k x 1 RAM chips. There is a memory CSR to help 
determine parity errors. 

The KDJll-OA also has 2 on board ROM's. They conta'n the self -test 
and the boot codes. 

The Serial Line Unit is implemented thru 2 01 art chips which provide 
the standard console interface to the CPU. It has internal loop back 
mode and has a user selectable baud rate of 300 to 38400 baud. 

The line time clock functions are implemented using the BEVENT line. 

As a program option the Q226E module is used to test verify the inter- 
rupt arbitration of the KOJll-OA , DMA protocol, and PMG counter. 

Further details are explicitly mentioned test by test in the DESIGN 
DESCRIPTION section » 3.0 
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126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 



2.0 



PROGftAMMING CONVENTIONS 



2.1 



2.2 



2.3 



2.4 



2.5 



2.6 



Implcflientat ! on Language 

The POP/11 Assembly Language has been used to write th s CPU 
d i agnost i c 

Program Generat i on 

This Diagnostic is developed and assembled on a VAX us no 
the PDP/11 mode "MCR MAC" and the ''ORION. MLB' I'braryas the 
following: 
♦ MCR MAC 

MAC> NAME, NAME/ SP=0RI0N. MLB/ML .NAME. MAC/OS :G8L 

Finally NAME. 08 J would be transfered to an XXDP* med a from 
the VAX by using the "XDT" or "SHARON' utility. 

Hardware Requirements 

To run successfully the diagnostic needs: 

A. KDJll -DA CPU module 

B. console terminal 

In DVT, and stage one manuf actur ino (module assembly) the Q22 
Bus exerciser is needed to check Q22 Bus logic. 

Loading and Starting Procedures 

To start-up this program: 

1. Boot XXDP> 



Type "R NAME", where name is the m 
file for this program. 



of the BIN or BIC 



The starting address of the program is 200. 

Note: if trying to restart tne program in an arbitrary place 
after HALT on Break the following registers should be set up: 
17777572»0 to disable memmory management 

Special Environments 

The program is APT compatible. It can also be run under the UFO 
monitor. In those cases none of trie standard error printouts 
occur. Refer to corresponding documents on running procedures in 
APT and under UFO monitor. 

Program Opt ' ons 

The Q22 Bus Exerciser is utilized if it is present in the 
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SEQ 0006 

163 system and the d'a9nost'c s not running m UFO node. 

184 Standard capabilities of looping on test and on error are prov ded. 

185 

186 

187 SWITCH REGISTER SELECTION: 

188 BIT ^*J^BER USE 

189 15 HALT ON ERROR 

190 14 LOOP ON PRESEN' TEST 

191 13 INHIBIT ERROR TYPEOtJ". 

192 12 ENABLE TEST TRACING 

193 11 INHIBIT ITERATIONS 

194 10 BELL ON ERROR 

195 9 LOOP ON ERROR 

196 8 LOOP ON TEST IN SUR<5-0- 

197 7 INHIBIT THE CHECK PARITY TEST 

198 6 Not used 

199 5 0 Subtest number to loop on 

200 (BIT 8) 
201 

202 
203 

204 2 . 7 Execut i on T i mes 

205 

206 Without check parity test, the diagnostic runs n under 20 

207 seconds. With it, it takes about 2 minutes. 
208 

209 
210 

211 2.8 Error Information 

212 

213 In the case of errors, a failing PC and test nvwibers are given. 

214 Where it is possible, expected and received data are given. 

215 For an example, see section 2.9 . 
216 

217 
218 
219 

220 2.9 Exaii«)les 

221 

222 After booting XXDP* and starting the program, the following 

223 Mill appear on the terminal: 
224 

225 * KDJll-DA CPU DIAGNOSTIC - COKOOAO ♦ 

226 

227 SUR - XXXXXX NEW « 

228 

229 where XXXXXX correspond to present software switch register 

230 setting. 

231 After "NEU" an operator can do one of the follow 'no: 

232 1) type in a new software switch register setting followed 

233 by carrige return or 

234 2 J just type in carriage return in which case the software 

235 register will remain unchanged. 
236 

237 Example of error printout: 

239 ERROR DOING Q22BE INTERRUPTS 
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SEQ 000" 



240 
241 
242 
243 
244 



note: 



TEST ERROR ADDRESS ADDRESS 
• PC <21-16> <15-0> 

27 105620 66600 000000 
this may not correspond to the actual Program Courier , 
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246 

247 
246 

249 

250 

251 

252 

253 

254 

255 

256 

257 

25a 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 



3.0 PROGRAM DESCRIPTION 
3.1 Jll CODE 

This portion of the code tests out the Jll chip set. It is broken 
"nto 5 pieces: CPU tests, which verify different instructions in 
different modes and different trap condtions; MMU tests, which 
verify different functions of MMU; and FFP tests, which do 
different floating point instructions. 

This portion of the code have been written in close relationship 
with the Jll microcode. Therefore, even though not all possible 
instructions in all possible addressing mode have been tested, ao 
attempt has been made to exercise all of the microcode. 

Most of the CPU diagnostic tests have been taken from the <0J11 B 
Cluster diagnostic and has not been rewr'tter due to similarities. 



3.2 NATIVE REGISTER 



TEST - NATIVE REGISTER 

NATIVE REGISTER TEST 

This test checks out the native register's ex 'stance and it's 
various bits. 



BGNTST 

) Set up timeout vector PC to TIMOUT 
) Set up timeout vector PSU to 7 
> Read the Native register 



) 
> 
) 
) 

ENDTST 



Check out the bootstrap switch as read only 
Check out the module functional revision as read only 
Check out that the self -test enable bit works 
Check out he indicators ( ! .e LEOS) 



TIMOUT: Clean stack 

Error NATIVE register timed out 
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>eO 0009 

297 

298 3.3 MAINTENANCE REGISTER 

299 

300 

301 

302 TEST MAINTENANCE REGISTER TEST 
303 

304 MAINTENANCE REGISTER TEST 

305 THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 

306 7 4 TO BE 0010. 2 1 TO BE 10. AND READ BITS 10 08. 03. 00 

307 FC« FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
30a MULTIPROCESSOR SLAVE. UNIBUS SYSTEM. FPA AVAILABLE. HALT/TRAP 

309 OPTION, AND AC POWER OKAY, 

310 ROUTINE TEST 

311 IF MAINT. REG. BITS <7 4> NE 0010 OR <2 1> NE 10 THEN 

312 . . ERROR 

313 ENDIF 

314 , READ MAINT. REG. BITS <10 08,03, 00> 

315 ENDROUTINE 
316 

317 
316 



COKOOeO KOJU-OA CLUSTER OIAG. MACRO V05.03 Ue<^esday 09 Apr 86 09:43 Page 8 



:>EQ 0010 



320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

336 

339 

340 

341 

342 

343 

344 

345 

346 

347 

340 

349 

350 

351 

352 

353 

354 

355 

356 

357 

356 

359 

360 

361 

362 

363 

364 

365 

366 

367 

366 

369 

370 

371 

372 

373 

374 

375 

376 



3.4 KDJll DA ON BOARD MEMORY 

The KDJll DA has on board memory of 512 Kbytes 
parity, f xed start at 0 



block mode. M th 



The KDJll OA board uses 256K x 1 chips which allows us to use two 
patterns per RAM only. 



Our memory diagnostic starts w'th testing the data path using this 
pattern: 0. 177777. 177400, 170360. 007417. 052525. 125252. The 2nd 
test is check no the access ib' 1 i ty of each address and an error will 
flag if memory traps. The thrd test is to check the memory registers 
specific to tne KOJll-OA. Fourth, 's the short and stuck on bits test 
which will test every s'ngle bit 0/1 for all addresses. The KNAIZUK 
HARTMA^fl^ algorithm wn'ch 3" v ides the memory into sections of three is 
used in test fve as a qu'ck verify of all stuck at faults in the data 
and addressing. Test s'x checks the parity detect logic of all memory 
locations on the KDJll DA. 

You can refer to this section for more details. 



TEST KDJll DA DATA PA^^HS 
DATA PATH TEST 

This test checks out the data and address paths on the KDJll-D 
Board. The patterns used will be: 

0 

177777 
177400 
170360 
007417 
052525 
125252 

BGNTST 

> Set Timeout trap to TIMOUT 

> Set timeout priority to 7 
} Read location 0 

> FOR pattern :« first to last 
} Urite pattern 

> Read pattern 

> IF Pattern read <> Pattern Written THEN 

> ERROR 

> ENDFOR 
ENDTST 



TEST - MEMORY ACCESSABILITY 

ACCESSIBILITY TEST 

This test will check the accessibility of each address of memory 
on the KOJll-D Board. IF a memory address traps out then an error 
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377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 



Mill be flagged. A side effect of this test should be that all aieiitory 
is cleared 

BGNTST 

> Set timeout trap to TIMOUT 

> Set timeout priority to 7 

) For MSB.Address 200000 to 1777777 00 

> Contents of address : = 0 
} Go to the next test 

> 

>TIMOUT: 

} Error Address should not have timed out 
ENOTST 



TEST MEMORY ERROR REGISTER 

MEMORY ERROR REGISTER 

This test Mill check the MEMORY ERROR REGISTER on the KDJll-D 
Board . 

BGNTST 

} Setup timeout VECTOR PC to TIMOUT 
} Setup timeout VECTOR Priority to 7 

> Setup Parity abort VECTOR to PARINT 

> Setup Parity abort VECTOR Priority to 7 

> Do a bus reset 

} Read the Memory Error Register (17772100) 

> Make sure that the register bits are in the r'ght state 

> Check all R/U bits 
ENOTST 



TEST - DATA SHORTS AhD STUCK AT BITS 

DATA SHORTS AhD STUCK AT BITS TEST 

This test will check the DATA Rams for Data shorts and stijck at b"ts. 
Testing occurs as below: 

1. A fflemory location is checked to be set to 0 

2. IF NOT 6 error 

3. The location is conplemented 

4. IF contents NOT -1 error 

5. This is repeated for all addresses 

6. Steps 1-5 are done from location 1777777 to 0 

Note: The KDJll-DA board uses 256k X 1 chips, This allows us to 
use only 2 patterns per RAM. IF one bits is shorted to 
another we will detect this when we read for the initial state. 
If it has changed from the expected state then chances are that 
the bits are snorted together. 

A side effect of this test should be that memory is cleared. 
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0012 



434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 



BGNTST 

FOR MSB Address :- 0 to 1777776 DO BY 2 
Clear Address 
If Contents <> 0 THEN 

ERROR in memory 
Conplement the Contents of Address 
IF contents <> 1 THEN 
ERROR in fflemory 

ENOFOR 

FOR MSB Address := 1777776 DOUNTO 0 DO Bt 
IF contents <> 1 THEN 

ERROR in memory 
Complement the Contents of Address 
IF contents <> 0 THEN 
ERROR in memory 

ENDFOR 
ENOTST 



TEST QUICK VERIFY DATA AND ADRESSING TEST 



UNIQUE ADDRESSING TEST 



It uses the KNAIZUK HARTMAhW QUICK VERIFY TRAM TEST ALGORITHM. 
This algorithm will test memory for all stuck at faults in the 
data ana addressing 

Memory is split up into sections of 3. 
I.E. 0.1.2 - 3.475 - 6.7.10 ... 

Testing works as follows. 



1. Write a 0 
write a -1 

2. make sure 

3. Write a -1 

4. Make sure 

5. Make sure 
contain -1 

6. Write a 0 

7. Make sure 

8. Write a 1 

9. Make sure 



into the 2nd and 3rd address of all groups 
into the 1st address of all groups 

that the 2nd address of all groups contain 0 
into the 2nd address of all groups 

that the 3rd address of all groups contain 0 

that the 1st and 2nd address of all groups 

into the 1st address of all groups 

that the 1st address of all groups contain 0 

into the 3rd address of all groups 
that the 3rd address of all groups contain -1 



TEST - CHECK PARITY DETECT LOGIC AND RAMS 

CHECK PARITY DETECT LOGIC 

This test will check out the parity detection logic on the KDJll.OA 
board. We will write wrong parity to all locations and then we will 
Expect the a parity trap on a read. 
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491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

506 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

526 

529 

530 

531 

532 

533 

534 

535 

536 

537 

536 

539 

540 

541 

542 

543 

544 

545 

546 

547 



BGNTST 

Set up Parity Vector (114) To PARINT 
Enable Urite Bad parity (Set bit 2 in MER (17772100)) 
Clear all of memory 
Read first location written to 
IF Parity Abort Occurs THEN 

Error There should be no Parity Aborts Mhen disabled 
Enable Parity Error (Set Bit 0 in MER (17772100) 
F i rst Address to Last address DO 



FOR 
BEGIN 



Address 



THEN 

Detect Bad parity 



READ 
NOP 

IF No Interrupt 
Error Didn't 
ELSE 

Clear the interrupt flag 
Read the MER and make sure the obtained address is the correct one 

ENDFOR 
PARINT : 

Flag that an interrupt occured 
RTI 
ENDTST 



3.5 ON-BOARD ROM CODE 

The KOJll-OA Native Firmware resides in a 2-16Kx8 EPROM's which 
are phisically located on the KDJll-DA module. The Firmware has 
a monitor to accept user commands, auto sequence boot, console 
boot, power up self tests, extended self tests invoked via user 
intervention, and support a text of basic error messages 'n all 
supported eleven foreign languages including extended error 
messages in English. 

In this test we perform a sum test for the on Board ROM's which 
resides at address 17400000 - 17677777. 



TEST - 16 BIT ROM CHECKSUM TEST 
ROM'S CHECKSUMS 
16 BIT ROM TEST 
BGNTST 

> INIT MMU REGISTERS 

) POINT PAGE 2 TO SELF TEST 

> ENABLE SELF TEST BIT 



T 
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548 
549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

5% 

597 

598 

599 

600 

601 

602 

603 

604 
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READ FIRST 2 WORDS OF ROM 
GET EXPECTED CHECKSUM 

DO CALCULATE CHECKSUM 
> ADD WORD TO REGISTER 
) DO UNTIL ALL WORDS ADDED 
EHD CALCULATION 

NEGATE THE SUM OF WORDS 
IF NEG. SUM < > EXPECTED CHECK.. « 
ERROR 
ENDTST 



Sfil 001 



3.6 LINE TIME CLOCKS CODE 

The line time clock control and status register ias accessed at 

address 17777546. The EVENT interrupt thru vector 100 on interrupt 

request level 6 is received from the Q-bus signal BEVENT. 

Note: in UFO mode only functions corresponding to Boot Rom selection 
are checked. 

In this diagnostic we start with test<>l: existence of the clock. 
test*2: interrupt priority max 5, testi^3: resetting LKS. 

TEST - LTC BIT 7 

LTC BIT 7 TEST 

This test check for the ex i stance of the LTC register and it 
makes sure that the clock is ticking. 

BGNTST 

Set up timeout vector PC to TIMOUT 
Set up timeout vector PSU to 7 
Read the LTC C3R 
IF not timed OUT THEN 
FOR a set amount of time 
Check bit7 
IF BIT 7 is set THEN 

Increment BIT7 set flag 
ELSE 

INCREMENT BIT7 Clear Flag 

ENDFOR 

IF either flag has not been set at all THEN 
Error Clock is not ticking 
ENDTST 

TIMOUT: Clean stack 

Error LTC register timed out 
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SfQ oor 



605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 



TEST 



LKS INT RRUPT PRIORITY 



CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
AND DON'T HAPPEN AT PRIORITY 6. 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
EXIT TEST 

ENDIF 

SET PRIORITY TO 5 
CLEAR INTERRUPT FLAG 
LET LKS<06>«#1 f ENABLE INTERRUPTS) 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
REPEAT 

DECREMENT COUNTER 
UNTIL INTERRUPT.FLAG EQ #3 OR COUNTER EQ #0 
CLEAR LKS<06> 
IF LKS<07> EQ 01 THEN 

ERROR (WAS NOT CLEARED ON INTERRUPT^ 

ENOIF 

IF COUNTER LT TIME REQUIRED FOR 3 INTERRUPTS FOR 800HZ 
ERROR (INTERRUPTS NCvER G5 LOU) 

ENDIF 

IF INTERRUPT FLAG LT #3 THEN 

ERROft (INTERRUPTS DON'T HAPPEN) 

ENOIF 

CLEAR INTERUPT FLAG 
WAIT FOR LKS<7>-1 
LET LKS<7>«0 
IF LKS<7> NE 00 THEN 

ERROR (LKS<7> NOT CLEARED 

ENDIF 

SET PRIORITY TO 6 

SET COUNTER TO 1 SLOW CLXK INTERRUPT 
SET LKS<06> 
REPEAT 

DECREMENT COUNTER 
IWTIL COUNTER EQ #0 OR INTERRUPT FLAG NE #0 
IF INTERRUPT.FLAG NE #0 THEN 

ERROR (INTERRUPT WAS AT WRONG PRIORITY) 

ENOIF 

RESTORE ORIGINAL PRIORITY 
ENDROUTINE 

ROUTINE LINE CLOCK.INTERUPT 

INCREMENT Interrupt flag 

ENDROUTINE 



TEST 



RESETTING LKS 



RESETTING LKS(*) 

THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>. 
ROUTINE TEST 

IF UFD AND LKS IS DISABLED THEN 
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SEQ OOlh 



662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

696 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 



ENOIF 



EXIT TEST 



POINT LKS VECTOR 100 TO ERROR.LKS.ILLEGAL INTERRUPT 
SYNCHRONIZE LKS BY UAITING FOfi 3 PULSES 
LET LKS<06>=#1 
EXECUTE "RESET" 
IF l:(S<6> NE *0 THEN 
ERROR 

ENDIF 

IF ILLEGAL LINE CLOCK INTERRUPT NE 0 THEN 

ENDIF 
ENDROUTINE 

ROUTINE ERROR LKS ILLEGAL INTERRUPT 

FLAG ILLEGAL _LINE CLOCK INTERRUPT 

RETURN 



TEST 



3.7 SERIAL LINE UNIT CODE 

The KDJll-da board has two Serial Line Unit that have to be tested. 
When the proceesor halts it enters uOOT and coiMiiun i cates over the 
SLUG at addresses 17777560 thru 17777566. They considered the console 
addresses by the CPU. SLUl is the General purpose Serial I/O and 
is addressed at 17776500 thru 17776506 and SLUl does not have the halt 
on breake option. 

In this diagnostic i*e verify the functionality of the SLU chip 
utilizing tne maintenance mode of the chip. All serial line unit 
tests: interrupt level, loop back capability, and transmitter 
receiver bits registers, are perfumed on SLUO and SLUl except the 
BREAK CONDITIO and the OVERRUN CONDITION tested on SLUl only, because 
SLUO is used as the console . 



SERIAL LINE UNIT REGISTERS 



SERIAL LINE UNIT TEST(*) 

BCR<2-0> UILL BE READ TO FIND OUT BAUD RATE. SLU MILL BE PROG 
RAMCD TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
RCSR AND XMIT. LOOP BACK CAPABILITIES UILL BE TESTED BY SETTING 
TO 1 XCSR<02>. THE LINE CLOCK INTERRUPT SUBROUTINE UILL BE 
USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS. IF THE 
PROGRAM HANGS IN THE LOOP BACK nODE. 
ROUTINE TEST 

IF UFD AND CONSOLE NOT PRESENT 
GO TO TEST 22 

ENDIF 

IF BCR<07> EQ #0 THEN 
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SEQ 0 



719 

720 

721 

112 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 



READ BCR<2 0> TO GET BAUD RATE 

ENDIF 

LET 4. ADDRESS OF TIMEOUT ROUTINE 
DO FOR RCSR.XCSR.RBUF.XBUP 

READ XRCSR.XCSR.RBUF.XBUF 
IF TIMEOUT FLAG NE #0 THEN 
ERROR 

ENDIF 

ENODC 
ENDROUTINE 

ROUTINE TIMEOUT 

LET TIMEOUT FLAG=*1 
ENDROUTINE 



TEST - XCSR BIT 7 

CHECK THAT XCSR < 07 > CAN BE 0 AND 1. 

XCSR <07> TRANSMITTER READY 

ROUTINE TEST 

UAIT FOR XCSR<07>»#1 NO MORE THAN POOMSEC 
IF XCSR<07> NE #1 THEN 
ERROR 

ENDIF 

LET XBUF»#NULL 
UAIT FOR XCSR<07>-#1 
LET XBUF-ONULL 
IF XCSR<07> NE 0 THEN 

ERROR (READY DIDN'T GO LOU) 

ENDIF 
ENDROUTINE 



TEST - RCSR BIT 7 AND XCSR BIT 2 

CHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<02> UORKS PROPERLY. 

RCSR <07> RECEIVER DONE 
RCSR <02> MAINTENANCE 

ROUTINE TEST 
(CHECK RCSR<07> AND XCSR<07>) 
UAIT FOR XCSR<07>=#1 
LET XCSR<02>-#1 (LOOP BACK MODE) 
LET XBUF-#125 

UAIT FOR RCSR<07>«#1 NO MORE THAN 200MSEC 
IF RCSR<07> NE #1 THEN 

ERROR (RCSR<C7> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
UORK) 

ENDIF 

IF RBUF NE #125 THEN 
ERROR 
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SEQ ooie 



776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 



ENDIF 

IF RCSR<07> NE #0 THEN 

ERROR CRCSR<07>D0ES NOT GO LOU) 

ENDIF 

LET XCSR<02>"#0 
ENDROUITNE 



TEST RESET AND XCSR<2!0> 

CHECK THAT RESET CLEARS XCSR<0!2>. 
ROUTINE TEST 
(CHECK RCSR<07> AND XCSR<07> AND RESET) 

LET XCSR<02,00>»W (' OOP BACK MODE) 
EXECUTE "RESET" 
IF XCSR<02!00> NE *0 THEN 
ERROR 

ENDIF 

LET XCSR<02>-<K> 
ENDROUTINE 



TEST - RESET AND INTERRUPT ENABLE BITS 

CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY 4 AND THAT RESET 
CLEARS XCSR<06> AND RCSR<06>. 

RCSR <06> RECEIVER INTERRUPT ENABLE 
XCSR <06> TRANSMITTER INTERRUPT ENABLE 

ROUTINE TEST 

LET 60»#AD0RESS OF ILLEGAL INTERRUPT XRCSR 
LET 64-#AD0RESS.0F_ILLEGAL_INTERRUPT XRCSR 
SET PRIORITY TO 4 
LET XCSR<02>-n (LOOPBACK MODE) 
LET XCSR<06>»#1 (ENABLE TRANSMIT INTERRUPTS) 
LET RCSR<06>-#1 (ENABLE RECEIVE INTERRUPTS) 
WAIT FOR XCSR<07>-*1 (READY TO TRANSMIT) 
LET XBUF-#NULL (SEND A CHARACTER) 
UAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
EXECUTE "RESET" 

IF XCSR<06> NE «0 OR RCSR<06> NE «0 OR XRCSR NE «0 THEN 
ERROR 

ENDIF 

RESTORE PRIORITY TO NORMAL 
ENDROUTINE 

ROUTINE ILLEGAL INTERRUPT XRCSR 

INCREMENT XRCSR 
ENDROUTINE 



TEST - INTERRUPT PRIORITY FOR SLU 
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S^Q 001- 



833 

834 

835 

836 

837 

838 

839 

640 

641 

642 

843 

844 

845 

646 

847 

646 

849 

650 

851 

652 

653 

654 

655 

656 

657 

656 

659 

660 

861 

662 

663 

664 

865 

866 

867 

666 

669 

670 

671 

672 

673 

674 

875 

676 

677 

876 

679 

680 

881 

382 

883 

864 

685 

686 

667 

888 

689 



CHECK THAT INTERRUPTS HAPP^ 
RCSR<06> AND XCSR<06>. 



AT PRIORITY 3 AND THAT THEY CLEAR 



ROUTINE TEST 

LET 60-#AOORESS OF LEGAL RINTERRUPT 
LET 64-#AD0RESS OF LEGAL XINTERRUPT 
LET XCSR<02>-*1 
SET PRIORITY TO #3 
WAIT FOR XINTERRUPT =#3 
IF XCSR<07> EQ *1 THEN 
ERROR 

ENDIF 

WAIT FOR RINTERRUPT- 03 
IF RCSR<07> EQ #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>=*0 
SET PRIORITY TO NORMAL 
ENDROUTINE 



ROUTINE LEGAL.XINTERRUPT 

LET XBUF«#CHARACTER 
INCREMENT XINTERRUPT 

ENDROUTINE 

ROUTINE LEGAL RINTERRUPT 
READ RCSR 

INCREMENT RINTERRUPT 
ENDROUTINE 



TEST BREAK CONDITION 

SLU »1 IS TESTED SINCE SLU PO IS BEING USED AS THE CONSOLE 

CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 

RCSR <15> ERROR 

<13> FRAMING ERROR 
<11> RECEIVED BREAK 

XCSR <00> TRANSMIT BREAK 

ROUTINE TEST 

LET XCSR<02>»*1 
LET XCSR<00>-*1 
WAIT FOR RCSR<07>»#1 
IF RBUF<15!13!11> NE #1 THEN 

ERROR (ERROR. FRAMING ERROR. RECEI\T BREAK NE 1) 

ENDIF 

LET XCSR<00>-#0 
IF XCSR<00> NE #0 THEN 

ERROR CXCSR<00> DOES NOT GO LOU) 

ENDIF 

UAIT FOR XCSR<07>«*1 

LET XBUF-#NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED) 
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SEQ 002( 



890 

891 

892 

893 

894 

895 

8% 

897 

898 

899 

900 

901 

902 

903 

904 

90S 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 



WAIT FOR RCSR<07>-*1 
IF RBUF<15!13!11> NE #0 THEN 
ERROR 

ENOIF 

LET XCSR<00>-#1 
EXECUTE "RESET" 
IF XCSR<00> NE <K) THEN 
ERROR 

ENDIF 

LET XCSR<02>=«) 
ENOROUTINE 



TEST - OVERRUN CONDITION 
CHECK OVERRUN CONDITION 



RCSR 



<14> 



OVERRUN ERROR 



SLU *1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 

ROUTINE TEST 

LET XCSR<02>-#1 (LOOPBACK MODE) 
WAIT FOR XC»»<07>»#1 
LET XBUF-#252 
WAIT FOR XCSR<07>-#1 

LET XBUF«#125 (SEND THE 2ND U/0 READING THE 1ST CHARACTER) 
WAIT FOR RCSR<07>-#1 

STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 
IF LOU BYTE OF RBUF NE #125 THEN 

ERRCm (1ST CHARACTER WASN'T OVERRUN) 

ENDIF 

IF RBUF<15!14> NE #1 THEN 

ERROR (NO OVERRUN BIT SET) 

ENDIF 

WAIT FOR XCSR<07>-*1 
LET XBUF«#NULL 
WAIT FOR RCSR<07>-#1 
IF RBUF<15!14> NE #0 THEN 

ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 

ENDIF 

LET XCSR<02>-<K) 
ENDROUTINE 



3.8 LED'S TEST CODE 

This test will determ'ne that the LED's situated on the CPU bos^d 
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947 work correctly. This is done by sending a delayed turn on and off 

948 to the LED's so mc can see their rotational pattern. 
949 

950 
951 
952 

953 TEST LEO'S ON 

954 

955 LED'S ON 

956 THIS TEST WILL INITIALIZE BDR TO CONTAIN A ROTATING PATTERN 

957 DISPLAYED IN LED'S. 
958 

959 ROUTINE TEST 

960 WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
%1 STALL ALLOWING TIME TO SEE PATTERN 
%2 ROTATE LEFT TO LIGHT UP NEXT LED'S 
%3 ENODO 

964 ENDROUTINE 

965 

966 

967 

968 



SEQ 0021 
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SEQ 0022 



970 
971 
972 
973 
974 
975 
976 
977 
976 
979 
960 
961 
962 
983 
984 
965 
986 
967 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 



3.9 Q22eL CODE 

Th« Q22 Bus Exerciser is a hardware option module that can worW m 
conjunction with the CPU to test different levels of Interrupt, 
arbitration between PIRQ's. and PMG counter of the KOJll-OA. D'rect 
Memory Access protocol . 

More details about every test could be found n this section. 



TEST - DIFFERENT LEVELS OF INTERRUPTS 
DIFFERENT LEVELS OF INTERRUPTS 

THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT A" DIFFERENT 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
PIRQ'S UILL BE TESTED. 

CHECK DIFFERENT LEVELS OF INTERRUPTS. 
ROUTINE TEST 

SET VECTOR TO INTERRUPT DMA 
FOR INTERRUPTS FROM 4 TO 7 DO 
ENABLE INTERRUPTS 
SET PRIORITY-INTERUPT 
IF INTERRUPT FLAG SET THEN 
ERROR 

ENDIF 

ENABLE INTERRUPTS 
SET PRIORITY-INTERRUPT -1 
IF INTERRUPT FLAG NQTSET THEN 
ERRO^ 

ENDIF 

LET INTERRUPT DMA«0 

ENDDO 
ENDROUTINE 

ROUTINE TNTERUPT.DMA 

LET INTERRUPT FLAG»1 

RETURN 
ENDROUTINE 



TEST - ARBITRATION BETUEEN PIRQ'S AND INTERRUPTS 

CHECK PRIORITY ORDER BETWEEN PIRQ'S AND INTERRUPTS. 
ROUTINE TEST 

IF UFD THEN 

EXIT TEST 



ENDIF 
DO FOR 



I FROM #6 DOWN TO #3 
SET PRIORITY TO I 

ENABLE INTERRUPTd*!) AND PIRQCLl) 
IF INTFRRUPTd*!) WAS BEFORE PIRQ(I»1) THEN 
ERROR 

ENDIF 
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1027 






1028 


ENDROUTI 


1029 






1030 






1031 






1032 






1033 






1 AY^ 

105* 






1 ATC 












1 AT? 


















1 AAA 

iu*o 






1 AA 1 














TCCT 




1 AAA 






1 tSM.K 




X 








1 ft47 


XCSx 


TT 


1 nAA 








xcsx 


TC 






oo 


\ 




■77 




XCSX 


Tfl 

<DO 


\ nsx 


XC5X 


TQ 

y? 




XCSX 




1 n<\iN 




•»X 




v€SX 


He 


Xv^ 1 


uCSX 




Xv^O 


XCSu 


AA 


XvD7 


xesx 


A"? 


X vO\^ 


xcsx 


AA 


xuox 




47 


1 <Vt9 
XVWc 


test 


48 


1063 


test 


49 


1064 


test 


50 


1065 


test 


51 


1066 


test 


52 


1067 


test 


53 


1068 


test 


54 


1069 


test 


55 


1070 






1071 






1072 







ENDOO 



3.10 LIST OF SUBTESTS PERFORMED 

The follow'ng I'st represents the sequential order of subtests 

performed in'COKDDAO subtests whch are subject to the APT 

qual'f ications of section 3.2 are ndicated by a Cache APT label, 

TEST NAME/FUNCTION 

Base instruction set tests 

KOJll OA on Board Memory 

KOJll-OA Data Path 

Memory accessability 

Memory Error Register 

Data shport and stuck at bits 

Quick verify Data and Address ng 

Check Parity detect Logic and RAM's 

Native Register 

On Board ROM code 

LTC bit 7 

LKS interrupt Priority 
Resetting LKS 
Maintenance ReQister 
Serial Line Unit Register 
XCSR bit 7 

RCSR bit 7 and XCSR bit 2 

Reset and XCSR<2!0> 

Reset and interrupt enable bit 

Interrupt priority for SLU 

Break Condition 

Overrun Condition 

LEO'S On 

Different Level-- of interrupt 
Arbitration between PIRQ's and interrupts 
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SCO 0024 



1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1C84 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 



3.11 PROGRAM UPDATES AND MODIFICATIONS 
Version COKDOAO 10-01-85 
Version COKDDBO 02-01 86 



MicHacl Cl^archaf 1 i an 
Michael Charchaflian 



4.0 BIBLIOGRAPHY 
N/A 

5.0 GLOSSARY 



N/A 

APPENDICES 
N/A 
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1115 
1116 
1117 



167400 
000300 



1110 



1120 
1121 
1122 



000001 



000250 

177572 
177574 
177576 
172516 

177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 

177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 

177640 
177642 
177644 
177646 



$SUR=167400 

$SURMK»300 
TITLE COKDDBO KOJll DA CLUSTER OIAG. 
COPYRIGHT (C) APR 86 
DIGITAL EQUIPMENT CORP. 
MAYNARO. MASS. 01754 

PROGRAM BY OIAG. ENG. 

THIS PROGRAM UAS ASSEMBLED USING THE POP 11 MAINOEC SYSMAC 
PACKAGE (MAINDEC-11 DZQAC-C8). OCT. 1982. 



♦ TN'l 
.SBTTL 



OPERATIONAL SWITCH SETTINGS 



SBTTL 
♦KTll 
MMVEC- 
:*KT11 
SRO 
SRI 
SR2- 
SR3« 
:«USER 
UIPORO' 
UIP0R1= 
UIP0R2' 
UIP0R3= 
UIPDR4' 
UIP0R5= 
UIPDR6^ 
UIPDR7' 
;*USER 
UOPDRO' 
UDPDRl" 
UDP0ft2= 
UDPDR3= 
UDPDR4' 
UDPDR5= 
UDPDR6' 
|J0PDR7= 
: ♦USER 
UIPARO' 
UIPAR1= 
UIPAR2' 
UIPAR3' 



USE 

HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<5:0> 
DO EXTENSIVE DATA RAM TEST 
DO EXTENSIVE TAG RAM TEST 



SWITCH 

15 
14 
13 
11 
10 

9 

8 

7 

6 

rEMGRY MANAGEMENT DEFINITIONS 
VECTOR ADDRESS 
250 

STATUS REGISTER ADDRESSES 
177572 
177574 
177576 
172516 

"I'- PAGE DESCRIPTOR REGISTERS 
177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 

••D" PAGE DESCRIPTOR REGISTORS 
177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 

"I" PAGE ADDRESS REGISTERS 
177640 
177642 
177644 
177646 
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SEQ 0026 



177650 


UIPAR4' 177650 


177652 


UIPAR5« 177652 


177654 


UIPAR6' 177654 


177656 


UIPAR7* 177656 
:*USER "0" PAGE 


177660 


UD'~ARO= 177660 


177662 


U0»-AR1» 177662 


177664 


U0PAR2- 177664 


177666 


U0PAR3= 177666 


177670 


U0PAR4= 177670 


177672 


U0PAR5« 177672 


177674 


U0PAR6* 177674 


177676 


U0PAR7« 177676 




;*SUPERVISOR "I 
SIPDRO- 172200 


172200 


172202 


SIP0R1=' 172202 


172204 


SIP0R2" 172204 


172206 


SIPDR3' 172206 


172210 


SIPDR4= 172210 


172212 


SIP()R5= 172212 


172214 


SIP0R6- 172214 


172216 


SIPDR7" 172216 




!*SUPERVISOR "D 
SOPDRO= 172220 


172220 


172222 


SDP0R1= 172222 


172224 


S0PDR2' 172224 


172226 


SOPORS' 172226 


172230 


SDPDR4= 172230 


172232 


S0PDR5» 172232 


172234 


S0PDR6" 172234 


172236 


SDPDR7« 172236 
:*SUPERVISOR "I 


172240 


SIPARO- 172240 


172242 


SIPARl- 172242 


172244 


SIPAR2- 172244 


172246 


SIPAR3- 172246 


172250 


SIPAR4- 172250 


172252 


SIPAR5- 172252 


172254 


SIPAR6- 172254 


172256 


SIPAR7" 172256 
; ♦SUPERVISOR "D 


172260 


SOPARO- 172260 


172262 


SOPARl- 172262 


172264 


SDPAR2- 172264 


172266 


S0PAR3- 172266 


172270 


S0PAR4- 172270 


172272 


S0PAR5- 172272 


172274 


S0PAR6- 172274 


172276 


S0PAR7- 172276 
;*KERNEL "I" PA( 


172300 


KIPDRO* 172300 


172302 


KIPDRl- 172302 


172304 


KIPDR2- 172304 


172306 


KIPDR3« 172306 


172310 


KIPDR4'' 172310 


172312 


KIP0R5« 172312 


172314 


KIPDR6« 172314 



B3 
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MFMORr MANACeMEST DEFINITIONS 

17P316 

172320 
172522 
172324 
172326 
172330 
172332 
172334 
172336 

172340 
172342 
172344 
172346 

172350 
172352 
172354 
172356 

172360 
172362 
172364 
172366 
172370 
172372 
172374 
172376 



1123 



001100 
104000 
000004 

000011 
000012 
000015 
000200 
177776 
177776 
177774 
177772 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 

000000 
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KIP0R7- 172316 

{♦KERNEL "D" PAGE DESCRIPTOR REGISTERS 

KOPDRO- 172320 

KOPDRl- 172322 

KDP0R2" 172324 

KDPDR3- 172326 

KDP0R4- 172330 

K0P0R5- 172332 

KDPDR6- 172334 

KDPDR7- 172336 

!*KERNEL "I" PAGE ADDRESS REGISTERS 

KIPARO- 172340 

KIPARl- 172342 

KIPAR2» 172344 

KIPAR3- 172346 

KIPAR4- 172350 

KIPAR5' 172352 

KIPAR6" 172354 

KIPAR7- 172356 

;*KERNEL "D" PAGE ADDRESS REGISTERS 

KDPARO- 172360 

KDPARl- 172362 

KDPAR2- 172364 

KDPAR3« 172366 

KDPAR4- 172370 

KDPAR5- 172372 

KDPAR6" 172374 

KDPAR7- 172376 

.SBTTL BASIC DEFINITIONS 

{♦INITIAL ADDRESS OF THE STACK POINTER ♦•♦ 1100 •♦♦ 
STACK- 1100 

ERROR- EMT ; {BASIC DEFINITION OF ERROR CALL 

SCOPE- lOT {{BASIC DEFINITION OF SCOPE CALL 

{♦MISCELLANEOUS DEFINITIONS 



SCO ooi 



HT> 
LF- 
CR- 
CRLF- 
PS- 
PSU- 
STKLMT> 
PIRQ- 
DSUR- 
DDISP- 



11 
12 
15 
200 
177776 
PS 

177774 
177772 
177570 
177570 



{♦GENERAL PURPOSE REGISTER DEFINITIONS 



:sC0DE FOR HORIZONTAL TAB 
isCOOE FOR LINE FEED 
::CODE FOR CARRIAGE RETURN 
{{CODE FOR CARRIAGE RETURN-LINE FEED 
: {PROCESSOR STATUS UORD 

{ {STACK LIMIT REGISTER 
{{PROGRAM INTERRUPT REQUEST REGISTER 
{{HARDWARE SUITCH REGISTER 
{ {HARDWARE DISPLAY REGISTER 



R0> 
Rl- 
R2- 
R3- 
R4- 
R5= 
R6- 
R7" 
SP' 
PC' 



itO 
Kl 
*2 
K3 
it4 
*5 
fie 
*1 
K6 
i<7 



{♦PRIORITY LEVEL DEFINITIONS 



{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
! {GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{{GENERAL REGISTER 
{ {STACK POINTER 
{PROGRAM COUNTER 



PRO" 



{ {PRIORITY LEVEL 0 



T 



C3 
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PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



SEQ 002*} 



000040 


PRl- 


40 


000100 


PR2- 


ICG 


000140 


PR3- 


140 


000200 


PR4- 


2<( 


000240 


PR5» 


24o 


000300 


PR6» 


300 


000340 


PR7- 


340 




j* "SWITCH REGI 


100000 


SU15- 


100000 


040000 


SU14- 


40000 


020000 


SU13» 


20000 


010000 


SU12» 


10000 


004000 


SUll- 


4000 


002000 


SUIO- 


2000 


001000 


SU09> 


1000 


000400 


SUO0> 


400 


000200 


SU07* 


200 


000100 


SU06 


100 


000040 


SU05- 


40 


000020 


SU04' 


20 


000010 


SU03- 


10 


000004 


SW02» 


4 


000002 


SUOl' 


2 


000001 


SUOO» 


1 


001000 


SU9- 


SU09 


000400 


sua* 


SU08 


000200 


SU7» 


SU07 


000100 


SU6« 


SU06 


000040 


SU5« 


SU05 


000020 


SU4- 


SU04 


000010 


SU3- 


SU03 


000004 


SU2- 


SU02 


000002 


SUl- 


SUOl 


000001 


SUO- 


SUOO 




: *DATA 


BIT DEF 


100000 


BITIS- 


100000 


040000 


BIT14- 


40000 


020000 


BIT13- 


20000 


010000 


BIT12" 


10000 


004000 


BIT11= 


4000 


002000 


BITIO" 


2000 


001000 


BIT09" 


1000 


000400 


BITO«- 


400 


000200 


BIT07- 


200 


000100 


BIT06- 


100 


000040 


BIT05- 


40 


000020 


BIT04- 


20 


000010 


BIT03« 


10 


000004 


BIT02- 


4 


000002 


BIT01» 


2 


000001 


BITOO- 


1 


001000 


BIT9- 


BIT09 


000400 


BITS- 


BIT08 


000200 


BIT?- 


BIT07 


000100 


BIT6- 


BIT06 


000040 


BIT5- 


BIT05 


000020 


BIT4« 


BIT04 



D3 
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BASIC DEFINITIONS 



1124 
1125 



1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 



000174 
000176 

000200 
000204 

000220 
000226 



000046 
000052 



1134 



000010 
000004 
000002 
000001 

000004 

000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 
000001 

000000 



000174 
000000 
OOOOOO 
000200 

005037 001160 
000137 004060 
000220 

012737 000777 
000137 004060 



000232 
000046 
031732 
000052 
OOOOOO 
000232 



001160 



000232 

000024 
000024 000200 

000044 
000044 000232 

000232 



000232 

000232 OOOOOO 



BIT3» 
BIT2- 
BIT1» 
BITO= 
! *BASIC 
ERRVEC- 
RESVEC- 
TBITVEC' 
TRTVEC' 
BPTVEC« 
IQTVEC= 
PURVEC' 
EMTVEC" 
TRAPVEC' 
TKVEC= 



BIT03 
BIT02 
BITOl 
BITOO 
"CPU" 
4 
10 
14 
14 
14 
20 
24 
30 
34 
60 
64 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AW ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ♦♦SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) ♦♦ERROR^^ 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
;FLAG FOR UFD 



TPVEC- 
PIRQVEC-240 

UFDSET" 
.SBTTL TRAP CATCHER 
.-0 

♦ALL UNUSED LOCATIONS FROM 4 776 CONTAIN A ".♦2. HALT" 
♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
♦LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

.WORD 0 sjSOFTWARE DISPLAY REGISTER 

.WORD 0 ! {SOFTWARE SWITCH REGISTER 



DISPREG 
SWREG: 
.-200 



.«220 



CLR 
JMP 

MOV 
JMP 



tTMPO 
MSTART 

*777.*TMP0 
MSTART 



;jl)SET L0C.46 TO ADDRESS OF $ENDAD IN . »EOP 

::2)SET L0C.52 TO ZERO 
RESTORE PC 



.SBTTL ACTll HOOKS 

; ; ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦^♦♦♦♦♦♦^♦****^***********4>^^^^^^^^^^^^^^^^^^^^^* 

: HOOKS REQUIRED BY ACTll 

$SVPC". ;SAVE PC 

.»46 
«ENOAD 
.=52 

.WORD 0 
.-tSVPC 

.SBTTL APT PARAMETER BLOCK 
: ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*♦*♦♦♦♦*** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

;♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦«**♦*♦*♦***♦**♦♦*♦ 

.IX». s;SAVE CURRENT LOCATION 

.=24 :sSET POWER FAIL TO POINT TO START OF PROGRAM 
200 s;FOR APT START UP 

.-44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
♦APTHOR { s POINT TO APT HEADER BLOCK 
.-.♦X ;! RESET LOCATION COUNTER 

; ♦♦♦**♦*♦♦♦♦***♦*♦♦♦♦*♦**♦♦*♦♦♦**♦***♦**♦*♦***♦♦«*♦♦♦♦**♦♦*♦«*♦* 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 
INTERFACE SPEC. 
♦APTHO: 

$HIBTS: .WORD 0 !:TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 



r 



E3 
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000234 
000236 
000240 
000242 
000244 



001200 
000000 
000000 
000000 
000052 



SEQ 0030 



* MB ADR: .UORD 
$TSTM: .UORD 
JPASTM: .UORD 
*UNITM: .UORD 
.UORO 



»MAIL 



: ADDRESS OF APT MAILBOX (BITS 0 15) 
;RLN TIM OF LONGEST TEST 

jRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND $MAIL/2 ; s LENGTH MAILBOX-ETABLE(UOROS) 



F3 
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SEQ 0031 



001100 
001100 
001102 
001103 
001104 
001106 
001110 
031112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 

001160 
001162 
001164 
001166 
001170 
001173 
001174 
001175 
001176 



001200 
001200 
001202 
001204 
001206 
001210 
001212 
001214 



001100 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000002 
000000 
000000 
000000 
000000 
207 
000 
077 
015 
012 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



377 



000 



.SBTTL 
; !**♦*♦ 

;*THIS 
{♦USED 

$CMTAG: 

USTNM: 

$ERFLG: 

$ICNT: 

JLPADR 

JLPERR 

JERTTL 

aiEMB 

$ERMAX 

iERRPC 

$ GO ADR 

$BDADR 

$GD0AT 

tBDOAT 



COMMON TAGS 
************** 

TABLE CONTAINS 
IN THE PROGRAM 
= 1100 



************* ******************************* 

VARIOUS COMMON STORAGE LOCATIONS 



$ AUTOS: 
♦INT AG: 

SUR- 
DISPLAY 
$TKS 
$TKB 
$TPS 
$TPB 
$NULL: 
♦FILLS 
♦FILLC 
♦TPFLG 
.REPT 
♦TMPO: 
♦TMPl: 
♦TIMES: 
♦ESCAPE 
377 ♦BELL: 



.UORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.WORD 
.BYTE 
-BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
: .UORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
2 

.UORD 
.UORD 
0 

:0 
.ASCIZ 



0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

OSUR 
DDISP 



0 
2 
12 
0 



0 
0 



<207><377><377> 



;;START OF COMMON TAGS 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED- -NOT TO BE U^O 



{.•AUTOMATIC MODE INDICATOR 
: {INTERRUPT MODE INDICATOR 

ADDRESS OF SUITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07>*0=YES) 



USER DEFINED 
USER DEFINED 

MAX. ^AJMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
CODE FOR BELL 



♦QUES: 
♦ CRLF : 
♦LF: 

.SBTTL 

• 

.EVEN 
♦MAIL: 
♦MSGTY 
♦FATAL 
♦TESTN 
♦PASS: 
♦DEVCT 
♦UNIT: 
♦MSGAD 



.ASCII /?/ {{QUESTION MARK 

.ASCII <15> ; {CARRIAGE RETURN 

.ASCIZ <12> { {LINE FEED 

**«*****************4>****4i****4********«***4>*«***** ****** 

APT MAILBOX-ETABLE 

********************************************************* 



UORD 
WORD 
UORD 
WORD 
UORD 
UORD 
WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 



G3 

COKDOBO KDJll DA CLUSTER DIAG. 
APT MAILBOX -ETABLE 



MACRO V05.03 Uednesday 09 Apr 66 09:43 Page 12 1 



SEO 0032 



001216 


000000 


*MSGLG 


: .UORO 


AMS6LG ; 


: MESSAGE LENGTH 


001220 




$ETABLE: 




:APT ENVIRONMENT TABLE 


001220 


000 


$ENV: 




.BYTE 


AENV ! 


; ENVIRONMENT BYTE 


001221 


000 


$ENVM 




.BYTE 


AENVM : 


; ENVIRONMENT MODE BITS 


001222 


000000 


$SUREG 


.UORD 


ASUREG : 


;APT SUITCH REGISTER 


001224 


000000 


*USUR 




.WORD 


AUSUR ; 


;USER SUITCHES 


001226 


000000 


JCPUOP 


: . UORD 


ACPUOP J 


:CPU TYPE, OPT IONS 












BITS 15 11»CPU TYPE 






t* 








11/04-01. 11/05-02. 11/20-03. 11/40-04. ll/45«05 






;* 








11/70=06. PDQ-07.Q-10 






!* 






BIT 10-REAL TIME CLOCK 












BIT 9-FLOATING POINT PROCESSOR 






!* 

iMAMSl 




BIT 8=r«M0RY MANAGEMENT 




AAA 


. .BYTE 


AMAMSl : 


;HIGH ADDRESS. M.S. BYTE 




AAA 


$MTYP1 


.BYTE 


AMTYPl : 


:MEM. TYPE.BLKOl 






!* 






MEM. TYPE BYTE (HIGH BYTE) 














900 N5iFC CORF-OQl 




















$MADR1 






^00 MSEC M0S«003 




AAAAAA 


.WORD 


AMADRl 








$MAMS2 






MEM LAST ADDR BYTES THIS UORO AND LOU OT "TYPE" 




AAA 


. .BYTE 


AMAMS2 


•HTGH ADDRESS M S BYTE 




AAA 


♦MTYP2 


.BYTE 


AMTYP2 : 


•MEM TYPE BLKd? 




AAAAAA 


$MA0R2 


.WORD 


AMAOR? 


:MEM LAST ADDRESS BLKd? 




AAA 


$MAMS3 


.BYTE 


AMAMS3 


sHIGH ADDRESS. M.S. BYTE 




AAA 


♦mYP3 


• BYTE 


AMTYP3 ; 


•MEM TYPE BLK<^3 




AAAAAA 


$nADR3 


.WORD 


AMADR3 


•MFM LAST ADDRESS Bl KA3 


AA1 OAA 


AAA 


$MAMS4 


• OT It 


AMAMS4 : 


{HIGH ADDRESS. M.S. BYTE 




AAA 


♦MTYP4 


DVTC 

.BYTt 


AMTYP4 ; 


; MEM. TYPE. BLK#4 




A(V4AAA 


$MADR4 


IJAOA 

. WOKU 


AMA0R4 : 


! MEM. LAST ADDRESS. BLK#4 




AAAAAA 


♦VECTi 


.WORD 


AVECTl ; 


; INTERRUPT VECT0R#1.BUS PRIORITY*! 


AA1 o«a 


AAAAAA 


IVECT2 




AVECT2 ; 


{INTERRUPT VECT0R#2BUS PRI0RITY*2 




AAAAAA 


(BASE 




. WUKU 


ABASE : 


{BASE ADDRESS OF EQUIPMENT UNDER TEST 




(VWVWVI 


$DEVM 




. WORD 


ADEVM ; 


{DEVICE MAP 


AA1 0£A 


(VWIAA 


iCDUl 




. UUHU 


ACDUl : 


{CONTROLLER DESCRIPTION U0RD#1 




AAAAAA 


$CDU2 




, WUKU 


ACDU2 ; 


{CONTROLLER DESCRIPTION U0RD*2 




AAAAAA 


(OOUO 




. WORD 


ADDUO : 


{DEVICE DESCRIPTOR UORD#0 


(VII PAA 


(WIAAA 


$0DU1 




ijADn 
. UURU 


ADOUl i 


{DEVICE DESCRIPTOR U0R0*1 




AAAAAA 


$DDU2 




. WORD 


ADDU2 


{DEVICE DESCRIPTOR U0R0#2 


AA1 P70 


(WWVIA 


$DDU3 




ijADr\ 
. WUKU 


A00U3 i 


{DEVICE DESCRIPTOR «)RD#3 


(VII 37A 


AAAAAA 


)0DU4 




. WORD 


A00U4 i 


{DEVICE DESCRIPTOR U0RD*4 


VA/XC f D 


AAAAAA 


(DDUS 






ADDU5 : 


{DEVICE DESCRIPTOR U0RD#5 


AA1 T(VI 


(WIAAA 


$DDU6 




.WORD 


ADDU6 : 


{DEVICE DESCRIPTOR U0RD#6 


00130? 


oooooo 

www 


JDDU7 




.UCRD 


ADDU7 : 


{DEVICE DESCRIPTOR W0RD*7 


001304 


OOOOOO 


»DDU8 




.WORD 


ADDU8 : 


{DEVICE DESCRIPTOR U0RD#8 


001306 


oooooo 


$0DU9 




.WORD 


A0DU9 : 


{DEVICE DESCRIPTOR W0RD*9 


001310 


ooooco 


$0DU10 


.WORD 


ADDUlO ; 


{DEVICE DESCRIPTOR U0RD#10 


001312 


oooooo 


IDDUll 


.WORD 


ADDUll : 


{DEVICE DESCRIPTOR U0R0#11 


001314 


oooooo 


$DDU12 


.UORD 


A00U12 : 


{DEVICE DESCRIPTOR WDR0#12 


001316 


oooooo 


$0DU13 


.UORD 


A0DU13 i 


{DEVICE DESCRIPTOR U0RD#13 
{DEVICE DESCRIPTOR U0R0#14 


001320 


oooooo 


$0DU14 


.UORD 


A0DU14 : 


001322 


oooooo 


$DDU15 


.UORD 


ADDU15 i 


{DEVICE DESCRIPTOR U0R0#15 


001324 




iETEND 









ABOVE 



H3 
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1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 



001324 



001324 
001326 
001330 
001332 

001334 
001336 
001340 
001342 

001344 
001346 
001350 
001352 

001354 
001356 
001360 
001362 

001364 
001366 
001370 
001372 

001374 
001376 
001400 
001402 

001404 

001406 
001410 
001412 

001414 
001416 
001420 
001422 

001424 
001426 



020617 
025314 
026502 
000000 

020653 
025314 
026502 
000000 

020665 
025314 
026502 
000000 

020677 
025314 
026502 
000000 

020735 
025314 
026502 
000000 

020761 
025314 
026502 
000000 

021073 
025314 
026502 
000000 

021132 
026145 
026736 
000000 

021202 
025314 
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S8TTL ERROR POINTER TABLE 

♦THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

♦THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

♦LOCATION $ITEMB. THIS NUMBER INDICATES UHICH ITEM IN THE TABLE IS PERTINENT. 



SEQ 0033 



♦NOTEl 

♦N0TE2; 

♦ 

♦ 
♦ 

$ERRTB : 



EM 
DH 
DT 
OF 



IF *ITEMB IS 0 THE ONLY PERTINENT DATA IS (»ERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOUS: 
; POINTS TO THE ERROR MESSAGE 
; POINTS TO THE DATA HEADER 
iPOINTS TO THE DATA 
5 POINTS TO THE DATA FORMAT 



. SBTTL ERROR 
.•ITEM 1 

EMI 
DHl 
DTI 
0 

sITEM 2 

EM2 
DHl 
DTI 
0 

;ITEM 3 

EM3 
DHl 
DTI 
0 

sITEM 4 

EM54 
DHl 
DTI 
0 

;ITEM 5 

EM56 
DHl 
DTI 
0 

sITEM 6 

EM57 
DHl 
OTl 
0 

;ITEM 7 

EM64 
DHl 
OTl 
0 

;ITEM 10 

EM65 
0H65 
DT65 
0 

;ITEM 11 

EM71 
DHl 



DEFINITIONS 



CPU ERROR 

TEST #, ERROR PC 

♦TMP1,$ERRPC 



MMU ERROR 

TEST #, ERROR PC 

$TMP1,$ERRPC 



FPP ERROR 

TEST «. ERROR PC 

♦TMPI.IERRPC 



CfCCKSUM ERROR IN 16 BIT ROM 

TEST #. PC 

$TMP1.$ERRPC 



TIMEOUT READING LKS 
TEST PC 
»TMP1.$ERRPC 



LKS<07> DOES NOT BECOME 1 
TEST #. PC 
$TMP1,*ERRPC 



WRONG NUMBER OF LKS INTERRUPTS 

TEST 9. PC 

»TMP1.$ERRPC 



LKS INTERRUPTS HAPPEN AT WRONG PRIORITY 
TEST 9. PC. PRIORITY 
UMPl , *ERRPC , *GDOAT 



:RESET DOESN'T CLEAR LKS«06> 
;TEST #. PC 



r 
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ERROR DE:FINITI0^4S 


1182 


001430 


026502 


1183 


001432 


000000 


1184 






1185 


001434 


021236 


1186 


001436 


026211 


1187 


001440 


026630 


1188 


001442 


000000 


1189 






1190 


001444 


021274 


1191 


001446 


025314 


1192 


001450 


026502 


1193 


001452 


000000 


1194 






1195 


001454 


021320 


11% 


001456 


025314 


1197 


001460 


026502 


1198 


001462 


000000 


1199 






1200 001464 


021351 


1201 


001466 


025341 


1202 


001470 


026746 


1203 


001472 


000000 


1204 






1205 


001474 


021402 


1206 


001476 


025314 


1207 


001500 


026502 


1206 


001502 


000000 


1209 






1210 


001504 


021452 


1211 


001506 


025314 


1212 


001510 


026502 


1213 


001512 


000000 


1214 






1215 001514 


021504 


1216 


001516 


025314 


1217 


001520 


026502 


1216 


001522 


000000 


1219 






1220 


001524 


021542 


1221 


001526 


025314 


1222 


001530 


026502 


1223 


001532 


000000 


1224 






1225 


001534 


021575 


1226 


001536 


025314 


1227 


001540 


026502 


1226 


001542 


000000 


1229 






1230 


001544 


021657 


1231 


001546 


025314 


1232 


001550 


026502 


1233 


001552 


000000 


1234 






1235 


001554 


021732 


1236 


001556 


025314 


1237 


001560 


026502 


1238 001562 


000000 



SEQ 0034 



sITEM 12 



:ITEM 13 



;ITEM 14 



DTI 

0 

> 

"EM72 
DH72 
DT41 
0 

5 

EM73 
DHl 
DTI 
0 



;ITEM 15 



EM74 
DHl 
DTI 
0 



sITEM 16 



;ITEM 17 



EM75 
DH4 
DT75 
0 

EM76 
DHl 
DTI 
0 



{ITEM 20 



EM77 
DHl 
OTl 
0 



;ITEM 21 



;ITEM 22 



:ITEM 23 



;ITEM 24 



EMIOO 
DHl 
DTI 
0 

L 

EMIOI 
DHl 
DTI 
0 

> 

'EM102 
DHl 
DTI 
0 

5 

Em03 
DHl 
DTI 
0 

\ 

EM104 
DHl 
DTI 
0 



;$TMP1.$ERRPC 



TIMEOUT READING SLU REGISTERS 
TEST ». PC, ADDRESS FAILED 
$TMP1.$ERRPC.»BDDAT 



XMIT READY DIDN'T GO LOW 
TEST ». PC 
$TMP1.$ERRPC 



RCSR DOESN'T BECOME 1 
TEST *. PC 
$TMP1.*ERRPC 



URONG CHARACTER RECEIVED 

TEST #. PC. EXPECTED DATA. RECEIVED DATA 

$TMP1 . $ERRPC . $GDDAT . $BDDAT 



RCSR < 07 > NOT CLEARED AFTER READING RBUF 

TEST #, PC 

»TMP1.$ERRPC 



XCSR<07> NOT SET ON RESET 
TEST 9. PC 
$TMP1,$ERRPC 



RCSR < 07 > NOT CLEARED ON RESET 

TEST «, PC 

♦TMPl.JERRPC 



SLU INTERRUPTS HAPPEN AT 4 

TEST #. pr 
*TMP1,♦E^ 'C 



RESET DOES NOT CLEAR XCSR<6> AND RSCR<6> 

TEST 9. PC 

ITMP1.»ERRPC 



TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07> 

TEST #, PC 

»TMP1.*ERRPC 



RECEIVE INTERRUPTS DON'T CLEAR RCSR<07> 

TEST 9, PC 

♦TMP1.»ERRPC 



j5 

coKDoeo kojii-d/» cluster diag. 
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1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1246 

1249 

1250 

12S1 

1252 

1253 

1254 

1255 

1256 

1257 

1256 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1266 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1276 

1279 

1280 

1281 

1282 

1263 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 



001564 
001566 
001570 
001572 

001574 
001576 
001600 
001602 

001604 
001606 
001610 
001612 

001614 
001616 
001620 
001622 

001624 
001626 
001630 
001632 

001634 
001636 
001640 
001642 

001644 
001646 
001650 
001652 

001654 
001656 
001660 
001662 

001664 
001666 
001670 
001672 

001674 
001676 
001700 
001702 

001704 
001706 
001710 
001712 



022002 
026255 
026760 
000000 

022055 
026255 
026760 
000000 

022133 
025314 
026502 
000000 

022167 
025314 
026502 
000000 

022231 
025341 
026746 
000000 

022307 
026255 
026760 
000000 

022372 
026255 
026760 
000000 

022456 
025314 
026502 
000000 

022531 
025314 
026502 
000000 

022623 
025314 
026502 
000000 

022662 
025314 
026502 
000000 



;ITEM 25 



J ITEM 26 



.•ITEM 27 



;ITEM 30 



sITEM 31 



:ITEM 32 



EM105 
DH105 
DT105 
0 

i 

EM106 
DH105 
DT105 
0 

7 

EM107 
DHl 

OTl 
0 

) 

EMI 10 
OHl 
OTl 

0 

L 

EMI 11 
DH4 
0T75 
0 



jITEM 33 



EMI 12 
DH105 
0T105 
0 



{ITEM 34 



jITEM 35 



sITEM 36 



:ITEM 37 



001714 022717 



:ITEM 40 



EM113 
DH105 
DT105 
0 

\ 

EM114 
OHl 
DTI 
0 

EM124 
DHl 
DTI 
0 

EM125 
OHl 
DTI 
0 

7 

EM126 
DHl 
OTl 
0 



EM127 
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BREAK CONDITION DOES NOT SET RBUF PROPERLY 

TEST C. PC. RBUF 

»TMP1,$ERRPC.RBUF 

RBUF UASN'T CLEARED ON NEXT CHAP. 
TEST #. PC. RBUF 
$TMP1,$ERRPC.RBUF 

ERROR IN URITING TO XCSR<0> 

TEST #. PC 

$TMP1,$ERRPC 

RESET DOES NOT CLEAR XCSR<00> 

TEST #. PC 

$TMP1.$ERRPC 

FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND 
'EST #. PC. EXPECTED DATA. RECEIVED DATA 
' 'MPl . $ERRPC . $GDDAT . $BDDAT 

OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF 

^tST #. PC. RBUF 

$TMP1.*ERRPC.RBUF 

RBUF UAS NOT CLEARED ON THE NEXT CHARACTER 

TEST *. PC. RBUF 

♦TMPl.iERRPC.RBUF 

ERROR IN XCSR<2> 
TEST #. PC 
*TMP1.$ERRPC 

PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER Q BUS INTERRl^TS 

TEST #. PC 

tTMPl.lERRPC 

NO POUER DOWN TRAP TO 24 OCCUR 

TEST #, PC 

*TMP1,*ERRPC 

ERROR IN INTERRUPTS FROM Q22BE 

TEST 9. PC 

»TMP1.*ERRPC 



! ERROR IN PMG COUNTER 



K3 
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ERROR DEFINITIONS 


12% 


001716 


025314 


1297 


001720 


026502 


1298 


001722 


000000 


1299 






1300 


001724 


022761 


1301 


001726 


025314 


1302 


001730 


027004 


1303 001732 


000000 


1304 






1305 001734 


023006 


1306 001736 


025314 


1307 001740 


026502 


1308 001742 


000000 


1309 






1310 001744 


023036 


1311 


001746 


025314 


1312 


001750 


026502 


1313 


001752 


000000 


1314 






1315 


001754 


023074 


1316 


001756 


025341 


1317 


001760 


026746 


1318 


001762 


000000 


1319 






1320 


001764 


023132 


1321 


001765 


025314 


1322 


001770 


026502 


1323 


001772 


000000 


1324 






1325 


001774 


023174 


1326 


001776 


025314 


1327 


002000 


026502 


1328 


002002 


000000 


1329 






1330 


002004 


023241 


1331 


002006 


025314 


1332 


002010 


026502 


1333 


002012 


000000 


1334 






1335 


002014 


023332 


1336 002016 


025314 


1337 


002020 


026502 


1338 


002022 


000000 


1339 






1340 


002024 


023415 


1341 


002026 


025314 


1342 


002030 


026502 


1343 002032 


000000 


1344 






1345 


002034 


023506 


1346 


002036 


025314 


1347 


002040 


026502 


1348 


002042 


000000 


1349 






1350 002044 


023561 


1351 


002046 


025314 


1352 002050 


026502 



;ITEM 41 



OHl 
OTl 
0 



.•ITEM 42 



EMI 30 
DHl 
DT130 
0 



sITEM 43 



J ITEM 44 



:ITEM 45 



EM131 
DHl 
OTl 
0 

s 

EMI 32 

DHl 

DTI 

0 

\ 

EM135 
DH4 
DT75 
0 



sITEM 46 



;ITEM 47 



;ITEM 50 



;ITEM 51 



:ITEM 52 



.•ITEM 53 



EMI 36 
DHl 
DTI 
0 

'eM137 
DHl 
DTI 
0 

7 

EM140 
DHl 
DTI 
0 

5 

EM141 
DHl 
DTI 
0 

I 

EM142 
DHl 
DTI 
0 

> 

"EM143 
DHl 
DTI 
0 

J 

EM144 

DHl 
DTI 
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"•Q 0036 



;TEST #, PC 
!$TMP1.*ERRPC 



UNEXPECTED TIMEOUT 
TEST #. PC 
$TMP1.$ERRPC 



ERROR WRITING TO LKS<6> 
TEST #. PC 
*TMP1,»ERRPC 



MAINTENANCE REGISTER ERROR 
TEST #, PC 
$TMP1 . lERRPC 



ERROR IN THE DATA PATHS 
TEST #. PC. EXPECTED DATA. RECEIVED DATA 
$TMP1 . JERRPC. JGDOAT . JBDDAT 



TIMED OUT IN ACCESSING LOCATIW 0 
TEST #. PC 
♦TMPl , lERRPC 



TIMED OUT IN TRYING TO ACCESS MEMORY 

TEST *. PC 

»TMP1.»ERRPC 



{ERROR IN FUNCTIONAL REV BITS W NATIVE REGISTER 

sTEST #, PC 

sITMPl.JERRPC 



ERROR IN INDICATOR BITS ON THE NATIVE REGISTER 

TEST ^^. PC 

*TMP1.*ERRPC 



ERROR IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER 

TEST «. PC 

*TMP1.$ERRPC 



TIMED OUT IN ACCESSING THE NATIVE REGISTER 
TEST *, PC 
$TMP1, lERRPC 



LTC MONITOR IS NOT TOGGLING 
TEST *, PC 
♦TMPl, lERRPC 



T 
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1353 

1354 

1355 

1356 

1357 

1356 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1366 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1396 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 



002052 000000 



002054 
002056 
002060 
002062 

002064 
002066 
002070 
002072 

002074 
002076 
002100 
002102 

002104 
002106 
002110 
002112 

002114 
002116 
002120 
002122 

002124 
002126 
002130 
002132 

002134 
002136 
002140 
002142 

002144 
002146 
002150 
002152 

002154 
002156 
002160 
002162 

002164 
002166 
002170 
002172 

002174 
002176 
002200 
002202 



023636 
025314 
026502 
000000 

023704 
025314 
C26502 
000000 

023747 
025341 
026746 
000000 

024024 
025314 
026502 
000000 

024105 
025314 
026502 
000000 

024153 
026364 
027012 
000000 

024235 
025314 
026502 
000000 

024315 
025314 
026502 
000000 

024402 
025341 
026746 
000000 

024455 
025341 
026746 
000000 

024527 
026364 
027012 
000000 



jITEM 54 



:ITEM 55 



jITEM 56 



sITEM 57 



;ITEM 60 



EM145 
DHl 
DTI 

_0 

EM146 
DHl 
DTI 
0 

i 

EM147 
DH4 
DT75 
0 

7 

EM150 
DHl 
DTI 
0 



ilTEM 61 



;ITEM 62 



EM151 
DHl 
DTI 
0 

I 

EM152 
DHl 34 
DTI 34 
0 



;ITEM 63 



EM153 
DHl 
DTI 
0 



;ITEM 64 



;ITEM 65 



EMI 54 
DHl 
DTI 
0 

EM155 
0H4 
DT75 
0 



;ITEM 66 



.ITEM 67 



EM156 
DH4 
DT75 
0 

'eM157 
DH134 
DT134 
0 
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SEQ 0037 



TIMEOUT IN ACCESSING THE LKS REGISTER 

TEST #, PC 

♦TMPl.iERRPC 



ERROR IN STUCK AT ZERO BITS 0.i MER 

TEST #. PC 

»TMP1,*ERRPC 



COULD NOT SET ONE OF THE R/U BITS ON THE MER 
TEST *, PC. EXPECTED DATA, RECEIVED DATA 
♦TMPl . lERRPC . $GDOAT . $BDDAT 



BITS 0.2.14.15 ON THE MER DID NOT CLEAR ON RESET 

TEST *. PC 

$TMPl.iERRPC 



TIMEOUT IN ACCESSING THE MER REGISTER 

TEST #. PC 

*TMP1.*ERRPC 



ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST 
TEST *. PC. PATTERN. DAT A. PAR. VIRTUAL ADDRESS 
♦TMPl , »ERRPC. $GDDAT. $BDDAT.KIPAR2. *BDAOR 



PARITY ABORT OCCURED UIiH PARITY ERROR DISABLED 

TEST «. PC 

♦TMP1,*ERRPC 



PARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED 

TEST #. PC 

♦TMPl.iERRPC 



MER DIDN'T HAVE CORRECT ADDRESS BITS 11 17 
TEST #. PC. EXPECTED DATA. RECEIVED DATA 
♦TMPl , tERRPC , JGDOAT . tBDDAT 



MER READ EXTENDED ADDRESS BITS HAS FAILED 
TEST «. PC. EXPECTED DATA. RECEIVED DATA 
♦TMPl . $ERRPC . ♦GDDAT . iBDDAT 



ERROR IN THE MEMORY 

TEST #. PC. PATTERN. DATA. PAR. VIRTUAL ADDRESS 
*TMP1 , JERRPC . *GDDAT , *BDDAT ,KIPAR2 . tBDADR 



M3 
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ERROR OEF INI T IONS 






024575 


1411 




025314 


141? 


002210 


026502 


1413 


002212 


000000 

WWW 


1414 






1415 


002214 


024617 


1416 


002216 


025314 


1417 


002220 


026502 


1418 


002222 


000000 


1419 






1420 


002224 


024657 


1421 


002226 


025314 


1422 


002230 


026502 


1423 002232 


000000 


1424 






1425 


002234 


024722 


1426 


002236 


025314 


1427 002240 


026502 


1428 


002242 


000000 


1429 






1430 002244 


024766 


1431 


002246 


025341 


1432 002250 


026746 


1433 002252 


000000 


1434 






1435 






1436 


002254 


025045 


1437 


002256 


025314 


1438 


002260 


026502 


1439 


002262 


OOOOCO 


1440 






1441 


002264 


025114 


1442 


002266 


025314 


1443 


002270 


026502 


1444 


002272 


000000 


1445 






1446 


002274 


025162 


1447 


002276 


025314 


1448 


002300 


026502 


1449 


002302 


000000 


1450 






1451 


002304 


025214 


1452 


002306 


025314 


1453 


002310 


026502 


1454 


002312 


000000 


1455 






1456 


002314 


025242 


1457 


002316 


025314 


1458 


002320 


026502 


1459 002322 


000000 


1460 






1461 


002324 


025273 


1462 


002326 


025314 


1463 


002330 


026502 


1464 


002332 


000000 


1465 






1466 







MACRO V05.03 Uednesday 09 



EM160 
DHl 
DTI 
0 

;ITEM 70 

Em61 



0 

J ITEM 71 

EM162 

DHl 

DTI 

0 

;ITEM 72 

Em63 
DHl 
DTI 
0 

;ITEM 73 

Em64 
DH4 
DT75 
0 

;ITEM 74 

EM165 
DHl 
DTI 
0 

sITEM 75 

EM166 
DHl 
DTI 
0 

; i tern 76 

effll67 
dhl 
dtl 
0 

! i t«m 77 

eml70 
dhl 
dtl 
0 

i item 100 

einl71 
dhl 
dtl 
0 

j'tem 101 

eml72 

dhl 

dtl 

0 
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Q 0C3a 



ERROR IN XCSR <6> 
TEST *. PC 
♦TMP1.*ERRPC 



NO XMIT INTERRUPTS HAVE OCCURED 

TEST #, PC 

*TMP1.$ERRPC 



NO RECIEVE INTERRUPTS HAVE OCCURED 

TEST #, PC 

♦TMP1.$ERRPC 



UNEXPECTED PARITY ABORT HAS OCCURED 

TEST PC 

$TMP1.*ERRPC 



HER DIDN'T HAVE CORRECT ADDRESS BITS 0 AND 15 
TEST*. PC. EXTENDED DATA, RECEIVED DATA 
$TMP1 , JERRPC . $GDDAT . $BDDAT 



TOO MANY TRANSIVER INTERRUPTS HAPPENED 
TEST *. PC 
*TMP1, tERRPC 



TOO MANY RECEIVER INTERRUPTS HAPPENED 

TEST *. PC 

$TMP1.*ERRPC 



; error in ready bit of csr 
itest*, PC 
{4tmpl,*errpc 



no character received 
test*, PC 
$tfflpl.$errpc 



; wrong character received 

:test*,pc 

:*tiiipl,errpc 



error rem size is zero 

testO.pc- 

$tinpl,errpc 



N3 
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SEQ 0039 



1467 






1468 






1469 






1470 






1471 


002334 


000000 


1472 002336 


000000 

www 


1473 


002340 


000000 


1474 


002342 


ooooco 


1475 


002344 


000000 


1476 


002346 


000000 


1477 


002350 


000000 


1478 


002352 


000000 


1479 






1480 002354 


000000 


1481 


002356 


000000 


1482 


002360 


000000 


1483 


002362 


000000 


1484 






1485 






1486 


002364 


000000 


1487 


002366 


000000 


1488 


002370 


000000 


1489 002372 


000000 


1490 


002374 


000000 


1491 


002376 


000000 


1492 


002400 


000000 


1493 






1494 


002402 


000000 


1495 


002404 


000000 


14% 


002406 


000000 


1497 


002410 


000000 


1498 002412 


000000 


1499 


002414 


000000 


1500 




002740 


1501 


002740 


000000 


1502 


002742 




1503 


003000 


000000 


1504 


003002 


000002 


1505 






1506 






1507 003004 


377 




003007 


000 


1508 






1509 




177524 


1510 




177524 


1511 




177520 


1512 




177746 


1513 




177752 


1514 




177734 


ISIS 




177546 


1516 




177750 


1517 




177520 


1518 




172100 


1519 




177744 


1520 




177522 


1521 




177772 


1522 




177560 



021 



.SBTTL GLOBAL VARIABLES AND REGISTER NAMES 



: REGISTERS FOR THE FIRST Q22BE 
CSRl: .UORD 0 



CSR2: 

BA: 

UC: 

DATA- 

VQ6E1: 

VQPRl: 

ilMGOA : 

l«dcnt 
RCOUNT 
T COUNT 
lopbak 



.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 
0 
0 



.word 0 

.UORD 0 

.UORD 0 

. word 0 



;REGIS"^ERS FOR THE SECOND Q22BE 
CSR12: .UORD 0 



CSR22: 

BA2: 

UC2: 

DATA2 

VQBE2 

VQPR2 

LKSFL: 
Ikcnt: 
savloc 
ACTCHS 
SAVPCR 
SAVBR: 
, '2740 
TEMP: 



TIMOUT : 
Q22EN: 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 

.UORD 
.word 
.word 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 



.UORD 0 

.BLKU 15. 

.UORD 0 

.UORD 2 



377 tchar: .byte -1,21,-1.0 



BCR- 

B0R= 

BCSR- 

CCR» 

HITMIS" 

KMCR" 

LKS" 

MAIREG' 

NATREG' 

MER^" 

MSER» 

PCR» 

PIR- 

RCSR- 



CONTROL REGISTER 1 FOR Q22BE 

CONTROL/STATUS REGISTER 2 

DMA ADDRESS FOR Q22eE 

UORD COUNT REGISTER 

DMA DATA FOR Q22BE 

ADDRESS OF VECTOR FOR Q22BE 

PRIORITY 

SIMULTANEUOS GO ADDRESS REGISTER 

location for the led count ;mc 
RECEIVER INTERRUPT COUNT jMC 
TRANSMITTER INTERRUPT COUNT :MC 
flag for the loop back connector ; mc 



CONTROL REGISTER 1 FOR Q22BE 

CONTROL/STATUS REGISTER 2 

DMA ADDRESS FOR Q22BE 

UORD COLWT REGISTER 

DMA DATA FOR Q22BE 

ADDRESS OF VECTOR FOR Q22BE 

PRIORITY 



; ACTUAL CHECKSUM 

J RESERVED FOR BLOCK MODE TRANSFER 
{PRIORITY 7-4 FOR Q22BE 

J string for the loop back connector test 



177524 


•BOOT/DIAGNOSTICS CONFIGURATION 


177524 


BOOT/DIAGNOSTICS DISPLAY 


177520 


BOOT/DIAGNOSTICS STATUS 


177746 


CACHE CONTROL REGISTER 


177752 


HIT OR MISS REGISTER 


177734 


UNIBUS CONFIGURATION REGISTER 


177546 


CLOCK STATUS REGISTER 


177750 


MAINTENANCE REGISTER 


177520 


NATIVE REGISTER 


172100 


MEMORY ERROR REGISTER 


177744 


MEMORY SYSTEM ERROR 


177522 


PAGE CONTROL REGISTER 


177772 


PROGRAM INTERRUPT REQUEST 


177560 


RECEIVER STATUS REGISTER 
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SCO 004C 



1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 



003010 
003012 



003014 
003016 
003020 
003022 
003024 
003026 
003030 
003032 
003034 
003036 
003040 
003042 
003044 
003046 
003050 
003052 
003054 
003056 
003066 
003076 
003100 
003102 
003104 
003114 
003124 



177562 
177564 
177566 
176500 
176502 
176504 
176506 

177766 

177572 
177574 
177576 
172516 
120001 
000000 
100000 



000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 



000000 



PBUF- 


177562 


RECEIVER DATA BUFFER 


XCSR- 


177564 


TRANSMITTER STATUS REGISTER 


XBUF- 


177566 


TRANSMITTER DATA BUFFER 


RCSR1= 


176500 


RECEIVER STATUS REGISTER 


RBUFl- 


176502 


RECEIVER DATA BUFFER 


XCSR1» 


176504 


TRANSMITTER STATUS REGISTER 


XBUF1= 


176506 


TRANSMITTER DATA BUFFER 


CPEREG" 


177766 jCPU ERROR REGISTER 


MMRO'SRO 




MEMORY MANAGEMENT REG. 0 


MMR1=SR1 




MEMORY MANAGEMENT REG. 1 


mR2»SR2 




(MEMORY MANAGEMENT REG. 2 


MMR3-SR3 




■MEMORY MANAGEMENT REG. 3 


POLY" 120001 






NULL- 


0 




begrom = 


100000 





.SBTTL GLOBAL DATA SECTION 



; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 

■ 

: THESE LOCATIONS ARE USED IN MORE THAN ONE TES^ TO STORE VECTOR DATA 
jUHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
.-FROM THE DEFAULT RESPONCE. 
SLOCOO: .UORD 0 
SLOCOl: .UORD 0 



: THESE 
PARPAT 
SAVTIM 
LOUADO 
GOOOAD 
ERRCNT 
TSTADD 
NEUADD 
FLAG: 
CCHPAS 
EEPAS: 
SAVSUP 
SAVUSE 
SAVMRO 
SAVMRl 
SAVMR2 
SAVSUR 
MERTAG 
FLOAT: 
FLO 
SEQ 
SPS 
SPSJ: 
BTEXP 
BTRES 
COUNT 



LOCATIONS ARE USED 
UORD 0 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.BLKU 
.BLKU 
.UORD 
.UORD 
.UORD 
.BLKU 
.BLKU 
.UORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
4 
4 
0 
0 
0 
4 
4 
0 



IN MORE THAN ONE TEST TO STORE WORKING DATA. 

LOCATION TO SAVE PATTERN USED IN PARITY TEST 
LOCATIOf^ TO THE SAVE THE TIMEOUT TRAP 
STORES LOU ADDRESS FOR RAM TESTS 
STORES GOOD ADDRESS FOR RAM TESTS 

CONTAINS TOTAL NO. OF EEROM ERHORS 
ADDRESS STORE FOR RAM TESTS 
ADDRESS STORE FOR RAM TEST 
USED TO STORE "FLAG" CONDITIONS 
flag-count«r for control of Cache subtests 
flag-counter for control of EEROM subtest 
USED TO STORE SUPERVISOR STACK VALUE 
USED TO STORE USER STACK VALUE 
USED TO STORE MMU STATUS REGISTER 0 
USED TO STORE MMU STATUS REGISTER 1 
USED TO STORE MMU STATUS REGISTER 2 



SAVE SFTURE SUTCH REG DURING EEROM 



DATA 
DATA 
DATA 
TEST 



USED TO STORE VALUES FOR MMU TESTS 
USED TO STORE VALUES FOR MMU TESTS 
STORES SEQUENCE NUMBER FOR JUMP TESTS 
STORES STACK POINTER FOR JUMP TESTS 
STORES STACK POINTER FOR JUMP TESTS 
STORES EXPONENT DURING BIT TESTS 
STORES RECIEVED DATA FOR BIT TESTS 
ERROR INDICATOR FOR FLOATING POINT TESTS 



C4 
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SCO 0041 



1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 



003126 
003136 
003146 



003156 
003160 



003162 
003164 



003166 
003170 



003240 
003242 
003244 
003246 
003250 
003252 
003254 
003256 
003260 
003262 
003264 
003266 
003270 
003272 
003274 
003276 
003300 
003302 
003304 
003306 
003310 
003312 
003314 
003316 



000000 
000000 



000000 
000000 



000000 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



000244 



001000 



123456 
000000 
OOOOOO 
000001 
055555 
177777 
145671 
100000 
003000 
123456 
OOOOOO 
OOOOOO 
055555 
177777 
OOOOOO 
OOOOOO 
043243 
OOOOOO 
OOOOOO 
OOOOOO 
162400 
OOOOOO 
OOOOOO 
OOOOOO 



RECFEC: .BLKU 4 
RECST: .BLKU 4 
RECDST: .BLKU 4 



RE:IEVE0 FLOATING POINT EXCEPTION CODE 

RECIEVED FLOATING POINT STATUS 

DESTINATION ADDRESS FOR FLOATING POINT TESTS 



: THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
ALLCTR: .\J0»? 0 
LOOPIN: .UORO 0 

sSOME MORE TE.MPORARY STORAGE FOR RAM TESTS 

SAVPCS: .UORD 0 ; STORES TEMPORARY BIT POSITIONS FOR RAM TESTS 

MASK: .UORD 0 ; STORES BIT MASK FOR ERROR ISOLATION 

; • ! ! ! !THIS IS IT . THE PROGRAM TEST LOCATION! !•!!!!!!.'!!!!!!!! 
TSTLOC: .WORD 0 
.BLKU 20. 

:FPP REGISTER DEFINITIONS 

ACO^ itO 

AC1= *1 

AC2=' *2 

AC3= #3 

AC4= *4 

AC5= *5 

AC6= H6 

AC7- HI 

jFPP INTERRUPT VECTOR 
FPVEC*244 





STB0T= 


1000 


TABl: 


.UORD 


123456 




.UORD 


OOOOOO 




.UORD 


0 




.UORO 


1 


TAB2: 


.WORD 


055555 




.UORD 


177777 




.UORD 


145671 




.UORO 


100000 


TABS: 


.UORD 


003000 




.UORD 


123456 




.UORO 


0 




.UORO 


0 


TAB4: 


.UORO 


55555 




.UORD 


-1 




.UORD 


0 




.UORD 


0 


TABS: 


.UORD 


43243 




.UORD 


0 




.UORD 


0 




.UORD 


0 


TA85A: 


.UORD 


162400 




.UORD 


0 




.UORO 


0 




.UORD 


0 
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SEQ 004. 



1636 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 

1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 

1664 

1665 
1666 
1667 
1668 
1669 

1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1663 
1684 
1685 
1686 
1687 
1688 
1689 



003320 

003322 

003324 

003326 

003330 

003332 

003334 

003336 

003340 

003342 

003344 

003346 

003350 

003352 

003354 

003356 

003360 

003366 

003370 

003372 

003374 

003376 

003400 

003402 

003404 

003406 

003410 

003416 

003420 

003426 

003430 

003432 

003434 

003436 

003440 

003446 

003450 

003452 

003454 

003456 

003460 

003462 

003464 

003466 

003470 

003472 

003474 

003476 

003500 

003502 

003504 

003510 

003512 

003514 

003516 

003520 

003526 



000000 

000000 

000000 

000000 

047050 

010000 

000000 

000000 

000200 

000000 

000000 

000000 

000200 

000000 

000000 

000001 

000400 

000000 

030000 

003000 

000000 

000000 

016400 

000000 

000000 

000000 

030000 

000000 

016100 

000001 

016200 

000000 

000000 

000001 

030000 

140000 

030000 

000000 

000000 

000000 

024700 

000000 

000000 

000000 

025000 

175363 

123456 

123456 

030000 

007020 

000000 

023456 

000000 

000000 

000001 

100200 

000000 



000000 



003000 
000000 



003000 



000000 



000000 



TAB6: 


.WORD 


0 




.UORD 


0 




.UORO 


0 




.UORD 


0 


TAB6A: 


.UORD 


47050 




.UORD 


10000 




.UORD 


0 




. MOKU 


0 


TAB7: 


.UORD 


200 




.UORD 


0 




.UORD 


0 




.UORD 


0 


TABS: 


.UORD 


200 




.UORD 


0 




.UORD 


0 




.UORD 


1 


TAB9: 


.UORD 


400,0.0,0 


TABIO; 


.UORD 


30000 




. WUKU 






.UORD 


0 




.UORD 


0 


TABU: 


.UORD 


16400 




.UORD 


0 




.UORD 


0 




. WUKU 


Q 


TABllA: 


.UORD 


30000.3000,2 


TAB12: 


.UORD 


16100.0.0.1 


TAB13: 


.UORD 


16200 




.UORD 


0 




.WORD 


0 




.UORD 


1 


TAB13B: 


.WORD 


30000.3000.0 


TABU: 


.WORD 


30000 




.WORD 


0 




.WORD 


0 




.WORD 


0 


TAB15: 


.WORD 


24700 




.WORD 


0 




.WORD 


0 




.WORD 


0 


TAB16: 


.WORD 


25000 




.WORD 


175363 




.WORD 


123456 




.WORD 


123456 


TAB17: 


.WORD 


30000 




.WORD 


7020 




.WORD 


0.0 


TAB18: 


.WORD 


23456 




.WORD 


0 




.WORD 


0 




.WORD 


1 


TAB21: 


.WORD 


100200.0.0.0 



E4 
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1690 


003530 


100400 


OOOOOO 


OOOOOO 


TAB22: 


.WORD 


100400.0.0.0 




003536 


000000 










1691 


003540 
003546 


000200 
000001 


OOOOOO 


OOOOOO 


TAB23: 


.UORD 


200.0.0.1 


169? 


003550 
003556 


062400 
000000 


OOOOOO 


OOOOOO 


TAB24: 


.UORD 


62400.0.0.0 


169^ 


003560 
003566 


001100 
000000 


OOOOOO 


OOOOOO 


TAB25: 


.UORD 


1100.0,0.0 


1694 


003570 


100600 


OOOOOO 


OOOOOO 


TAB26: 


.UORD 


100600.0.0.0 




003576 


000000 










169S 


003600 


001000 


OOOOOO 


OOOOOO 


TAB27 : 


.UCRD 


1000.0.0.0 




003606 


000000 










16% 


003610 


000600 


OOOOOO 


0^XXX)O 


TAB28: 


.UORD 


600.0.0.0 




003616 


000000 










1697 


003620 


010100 


OOOOOO 


OOOOOO 


TAB29: 


.UORD 


10100.0.0.0 




003626 


000000 










1698 


003630 


010100 


OOOOOO 


002000 


TAB29A : 


A, »D 


10100.0,2000.0 




003636 


000000 










1699 










TAB 30: 






1700 


003640 


000500 


OOOOOO 


OOOOOO 


.UORD 


500.0.0,0 




003646 


000000 










1701 


003650 


100400 


OOOOOO 


OOOOOO 


TAB31 : 


.UORD 


100400,0,0.0 




003656 


000000 










1702 


003660 


016000 


OOOOOO 


OOOOOO 


TAB32: 


.UORD 


16000,0.0.0 




003666 


000000 










1703 


003670 


011600 


OOOOOO 


A A >^ A A 

OOOOOO 


TAB33: 


.UORD 


11600,0,0,0 




003676 


000000 










1704 


003700 


000640 


OOOOOO 


OOOOOO 


TAB34: 


.UORD 


640.0,0,0 




003706 


000000 










1705 003710 


077600 


A A A A 

OOOOOO 


OOOOOO 


TA640: 


.UORD 


77600,0.0,0 




003716 


000000 










1706 


003720 


100200 


OOOOOO 


OOOOOO 


TAB41 : 


.UORD 


100200.0,0,1 




003726 


AAA • 

000001 










1707 


003730 


000340 


OOOOOO 


OOOOOO 


TAB42: 


.UORD 


340.0.0.0 




003736 


000000 










1708 


003740 


000077 


177777 


177777 


TAB43 : 


.UORD 


77 , 177777 . 177777 . 177776 




003746 


177776 










1709 


003750 


000577 


177777 


177777 


TAB45: 


.UORD 


577.-1.-1.-1 




003756 


177777 










1710 


003760 


000577 


177777 


OOOOOO 


TAB46: 


.UORD 


577,-1,0.0 




003766 


000000 










1711 


003770 


173737 


124242 


052525 


TAB47: 


.UORD 


173737 . 124242 , 052525 , 12346 




003776 


012346 










1712 


004000 


ooOooo 


OOOOOO 


052525 


TAB47A: 


.UORD 


0.0.052525.12346 




004006 


012346 










1713 


004010 


173737 


124242 


OOOOOO 


TAB48: 


.UORD 


173737.124242,0.0 




004016 
00'-020 


OOOOOO 










1714 




OOOOOO 


OOOOOO 


TAB49: 


.UORD 


600.0.0,0 




0C*.>26 


OOOOCO 










1715 
















1716 


0(^^30 


OOOOOO 






DCOUNT 




.UORD 0 


1717 


0«>4D32 


OOOOOO 






EXPDAT 




.UORD 0 


1718 


OC-4034 


OOOOOO 






RECDAT 




.WORD 0 


1719 


004036 


OOOOOO 






PUOSEQ 




.UORD 0 


1720 


004040 


OOOOOO 






ADLSB 




.UORD 0 


1721 


004042 


OOOOOO 






RITEDA 




.WORD 0 


1722 


004044 


OOOOOO 






NEUOAT 




.UORD 0 



r 



F4 

COKDOBO KDJll DA CLUSTER DIAG. 
GLOBAL DATA SECTION 



MACRO V05.03 Uednesday 09 Apr 86 09:43 Page 13 11 



SEO 004A 



1725 
1724 

1725 
1726 
1727 
1728 
1729 
1730 



004046 
004050 
0040S2 
004054 
004056 



004060 



000000 
000000 
000000 
000000 
000000 



CURDAT 
FSTADD 
LSTADD 
CUR ADD 
PARABT 



.UORD 
.UGRD 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 



5 PARI Y ABORT FLAG 



004060 


005737 


004146 




EMTSAV: 


TST 


SAV30 


004064 


001034 








BNE 


VMKOR 


004066 


032737 


000040 


000052 




BIT 


#6IT5,a052 


004074 


001430 








BEQ 


VMKOR 


004076 


012737 


177777 


004152 




MOV 


0 1, UFDFLG 


004104 


032737 


000100 


000052 




BIT 


#6IT6.a#52 


004112 


001403 








BEQ 


1$ 


004114 


012737 


177777 


004154 




MOV 


# 1. UQUIET 


004122 


104042 






1$: 


EMT 


42 


004124 


005060 


000042 






CLR 


42(R0) 


004130 


013737 


000030 


004146 




MOV 


30.SAV30 


004136 


013737 


000032 


004150 




MOV 


32,SAV32 


004144 


000404 








BR 


VMKOR 


004146 


000000 






SAV30 : 


.UORD 


0 


004150 


000000 






SAV32: 


.UORD 


0 


004152 


000000 






UFDFLG: 


.UORD 


0 


004154 


000000 






UQUIET: 


.UORD 


0 


004156 








VMKOR: 







1731 004156 



004156 
004162 
004164 
004170 
004172 

004176 
004204 
004212 
004220 
004226 
004234 
004242 
004250 
004256 
004264 
004270 
004274 
004302 
004310 



004316 
004322 
004330 
004336 



START: 

i: LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 

FIRST TIME THROUGH ? 
BRANCH IF BEEN HERE ALREADY 
ARE UE IN UFD MODE ? 
LEAVE IF NOT 
SET UFD FLAG 
ARE UE IN QUIET MODE ? 
BR IF NOT 
SET QUIET MODE 

GET ADDRESS OF XXOP DCA TABLE 
CLR XXDP* "DRSERR" 
SAVE EMULATOR ADDRESS 
SAVE EMULATOR PRIORITY LEVEL 
GET AROUND TAG AREA 
PUT EMULATOR INFO HERE 
PUT PRIORITY LOCATION HERE 
USER FRIENDLY MODE FLAG 
UFD QUIET MODE FLAG 

1$: 

.SBTTL INITIALIZE THE COmON TAGS 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



013746 
012737 
012737 
012737 



OOllOO 

001140 

001100 

031766 
000340 
032270 
000340 
035014 
000340 
035076 
000340 
031700 
001164 
001166 
000001 
004302 
004310 



000004 
004356 

177570 
177570 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
031672 



001115 
001106 
001110 



000004 
001140 
001142 



;;CLEAR THE COMMON TAGS (*CMTAG) 
♦♦CMTAG.R6 
CR6)» 

«SUR,R6 i:DONE? 
.-6 ; 
♦STACK. SP i 
FEU VECTORS 
♦♦SCOPE. WIOTVEC 
#340,3*I0TVEC«2 i 
« ♦ERROR, a#EMTVEC 
#340.a#EMTVEC*2 ; 
♦♦TRAP.8#TRAPVEC 



MOV 
CLR 
CMP 
BNE 
MOV 

J ; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 



#340,a#TRAPVEC»2;LEVEL 7 



AREA 

: FIRST LOCATION TO BE CLEARED 
: CLEAR MEMORY LOCATION 

:LOOP BACK IF NO 

J SETUP THE STACK POINTER 

!:IOT VECTOR FOR SCOPE ROUTINE 
{LEVEL 7 

!:EMT VECTOR FOR ERROR ROUTINE 
! LEVEL 7 

: J TRAP VECTOR FOR TRAP CALLS 



♦♦PURDN.9«PURVEC 
#340.S#PURVEC*2 
♦ENDCT.^EOPCT 
♦TIMES 
♦ESCAPE 
*1 , ♦ERMAX 
*. .♦LPAOR 
#, ,$LPERR 



;POUER FAILURE VECTOR 
LEVEL 7 

SETUP END -OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



ss SIZE FOR A HMRDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



i! EQUAL TO A 
MOV 
MOV 
MOV 
MOV 



'-1". SETUP FOR A SOFTWARE SWITCH REGISTER. 
a«ERRVEC.-CSP) i ; SAVE ERROR VECTOR 
#30000 ♦.a#ERRVEC i :SET UP ERROR VECTOR 

♦OSUR.SUR ;. -SETUP FOR A HARDUARE SUICH REGISTER 
OODISP. DISPLAY !:AND A HARDUARE DISPLAY REGISTER 



r 
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INITIALIZE THE 


COMMON TAGS 






Ct/\AXAA 


Uee III 


1 77777 
1 f f f 1 f 


174566 


















































001140 




0O4'^7P 




rtOOl 7A 


001142 




004400 










004404 


005037 








004410 


132737 


OOOPOO 
vwc w 


001221 




004416 


0014O3 








004420 


012737 


001222 


001140 




004426 








1732 


004426 


013737 


0<!1415? 

V.^^ X M^C 


004154 


1733 


004434 


012737 

VXb 1^1 




000004 


1734 


004442 


012737 

VXC 1^1 


0OO340 


000006 


1735 


004450 


012737 


027464 


000114 


1736 


004456 


012737 

VX k • V ( 


000340 


000116 


1737 


004464 


012737 


030402 


000250 


1738 


004472 


012737 

W XC • V * 


000340 


000252 


1739 


004500 


005037 


177766 




1740 


004504 


032737 


000100 

wvx w 


000052 


1741 


004512 


001164 

WX X 






1742 


004514 


104401 


017750 




1743 












004520 


005737 


000042 

ww~c 






004524 


001012 








004526 


123727 


001220 


000001 




004534 


001406 








004536 


023727 


001140 


000176 




004544 


001005 








004546 


104406 








004550 


000403 








004552 


112737 


000001 


001134 




004560 








1744 


004560 


000240 






1745 


004562 


123727 


001220 


000001 


1746 


004570 


001020 






1747 004572 


013700 

wX «^ • W 


001224 




1748 


004576 


005700 






1749 


004600 


001420 






1750 










1751 


004602 


042700 


000017 

WWX f 




1752 


004606 


000241 






1753 


004610 


006000 






1754 


004612 


006000 

WWW 






1755 


004614 


006000 






1756 


004616 


006000 






1757 


004620 


005700 






1758 004622 


001413 






1759 










1760 


004624 


010037 


003034 




1761 


004630 


000413 






1762 004632 


012737 


177777 


003034 


1763 


004640 


000407 






1764 


004642 


012737 


000001 


003034 



SCO 004*; 



30000*: 
30001*: 
30002*: 

30003*: 



.S8TTL 



30004*: 
30005*1 



20*: 
25*: 



CMP 


« l.aSUR : 


:TRY TO REFERENCE HARDWARE SUR 


BNE 


30002* : 


: BRANCH IF NO TIMEOUT TRAP OCCURRED 






;AND THE HARDWARE SUR IS NOT • 1 


BR 


30001* • 

*^VW XT 1 


•BRANCH TF NO TTHFOUT 


MOV 


#30001 *.(SP) : 


.-SET UP FOR TRAP RETURN 


RTI 






l-QV 


«SUREG . SUR 


: POINT TO SOFTUARE SUR 


MOV 


WISPREG. DISPLAY 




MOV 


(SP)*.a*ERRVEC ; 


; RESTORE ERROR VECTOR 


CLR 


*PASS ! 


; CLEAR PASS COUNT 


BITB 


#APTSIZE , *ENVM ; 


;TEST USER SIZE UNDER APT 


BEQ 


30003* : 


: YES. USE NON-APT SUITCH 


MOV 


#*SURCG,SUR ; 


; NO. USE APT SUITCH REGISTER 


MOV 


UFDFLG.UQUIET ; 


ABORT IN UFD ON ERROR 


MOV 


#TOUT,a#ERRVFC ; 


POINT TO TIMEOUT ROUTINE 


MOV 


#340,a*ERRVEC*2 j 


AT PRIORITY 7 


MOV 


«RAMPAR.S«114 ; 


POINT PARITY ABORT 


MOV 


#340.3*116 


AT PRI0RITY7 


MOV 


#MMUTRP.a*250 ; 


POINT MMU TRAP VECTOR 


MOV 


*340,a«252 J 




CLR 


a#177766 ; 


CLEAR CPU ERROR REGISTER 


BIT 


«6IT06,3#52 i 


IN UFD QUIET MODE ? 


BNE 


LOOP ; 


IF SO. SKIP PRINTOUT 


TYPE 


.SUTSEL : 


GET VALUE FOR SOFTUARE SWITCH REGISTER 


TST 


3«42 ; 


;ARE WE RUNNING UNDER XXDP/ACT? 


BHE 


30004* : 


: BRANCH IF YES 


CMPB 


*ENV,#1 ; 


;ARE WE RUNNING UNDER APT? 


BEQ 


30004* ; 


: BRANCH IF YES 


CMP 


SUR.«SUREG : 


i SOFTUARE SUITCH REG SELECTED? 


BNE 


30005* ; 


: BRANCH IF NO 


GTSUR 




sGET SOFT-SUR SETTINGS 


BR 


30005* 




MOVB 


«1, ♦AUTOS : 


;SET AUTO -MODE INDICATOR 


NOP 




debu^ aid 


CMPB 


*ENV.#1 1 


rurtning under APT? 


BNE 


20* : 


default no-APT initializaton 


MOV 


*USUR.RO : 


work copy pass calculation 


TST 


RO i 


if ' 0 default value 


BEQ 


25* ; 


setup default value 


BIC 


#17, RO ! 


clear low order nibble 


CLC 




assure no unknowns 


ROR 


RO i 


4 rotates " divide 


ROR 


RO : 


by l6 ('pass time) 


ROR 


RO 


tnis area subroutined 


ROR 


RO : 


with general purpose 


TST 


RO i 


divide, this test to 


BEQ 


30* : 


determine skip altogether 


MOV 


RO.CCHPAS ! 


residue > no. of desired passes 


BR 


35* ; 


confnue on 


MOV 


« l.CCHPAS i 


largest number no apt mode?? 


BR 


35* 


MOV 


Ol.CCHPAS ; 


normal default » 1 



H4 
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1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 



004650 000403 

004652 012737 000000 003034 
004660 000240 



004662 032737 000010 177750 

004670 001437 

004672 104401 004700 

004676 000433 



004766 

1782 

1783 004766 000434 
1784 

1785 004770 

004770 104401 004776 
004774 000431 



1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
17% 
1797 
1798 
1799 
1800 
1801 
1802 



1603 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 



005060 
005060 



005064 
005072 
005074 



005076 
005102 
005104 
005106 

005106 
005112 
005116 

005202 
005202 
005204 
005210 
005212 
005220 



004737 027546 



122737 000001 001220 

001001 

000451 



005737 001206 

001401 

000445 



005037 002362 
104401 005120 
000431 



104410 

022716 000131 
001003 

012737 000001 002362 



SEQ 0046 



BR 

301: MOV 
35$: nop 



BIT 
BEQ 
TYPE 
BR 

: :30OO7$: 
30006$: 

BR 

99$: 

TYPE 
BR 
30009*: 
30008$: 

1000$ : JSH 



LOOP: 



CMPB 

BNE 

Br 



3000$: TST 
BEQ 
Br 

2000$: 



; J 30011$; 
30010$ : 



clr 
TYPE 
BR 



1$: 



rdchr 
cmp 
bn« 
mov 



35$ 

OO.CCHPAS 



; no cache tests Included 
; debug ad 



BIT 
BNE 



08IT07.a#52 
LOOP 



;UFD MODE? 

sIF YES, BRANCH 



:HALT ON ERROR JtiMPER 



#BIT03.MAIREG 
99$ 

.30007$ TYPE ASCIZ STRING 

30006$ !:GET OVER THE ASCIZ 

.ASCIZ <15><12>/TRAP ON HALT IS ENABLED, JUMPER IS NOT INSTALLE0/<15><12> 
1000$ 

.30009$ :iTYPE ASCIZ STRING 

30008$ jjGET OVER T^C ASCIZ 

.ASCIZ <15><12>/TRAP ON HALT IS DISABLED. JUMPER IS INSTALLED/<15><12> 



PC,Q22SIZ 



*APTENV.$ENV 

3000$ 

TSTl 



$PASS 
2000$ 
TSTl 



:SIZE FOR Q22BE 



sARE UE IN APT MODE? 
;IF NOT: DO THIS TEST 
i ! go to test 1 

! under APT 

! FIRST PASS?? 
:IF YES. DO IT 
i ; go to test 1 



lopbak : clear loop back flag 

.30011$ 8! TYPE ASCIZ STRING 

30010$ ! sGET OVER THE ASCIZ 

.ASCIZ <15><12><12>/IF LOOP BACK CONNECTOR INSTALLED TYPE: 



Y/<15><12><12 



*'Y.(9p) 
1$ 

«1. lopbak 



;read the input character 
i is it yes ?? 
jno loop back connector 
{loop back installed, flag it. 



14 

COKODBO KOJll-OA CLUSTER OIAG. 

TEST NATIVE REGISTER 

1813 
1814 

1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
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.SBTTL TEST - NATIVE REGISTER 



SEQ 0047 



1838 
1839 
1840 



1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 



005220 000004 

005222 032777 010000 

005230 001424 

005232 104401 005240 

005236 000421 



173710 



005302 
005302 
005302 
005310 
005316 
005324 



005330 
005336 
005342 
005344 
005346 
005350 



005352 
005360 
005366 
005370 
005372 
005376 
005402 



013737 000004 

012737 005464 

012737 000340 

013700 177520 



052737 
013701 
020001 
001402 
104047 
000447 



042737 
032737 
001403 
104050 
005037 
012701 
012702 



160000 
177520 



003016 
000004 
000006 



177520 



000177 
000177 



172100 
000001 
000007 



177520 
177520 



NATIVE REGISTER TEST 

This test checks out the native register's ex i stance and 
various bits. 

BGNTST 

Set up timeout vector PC to TIMOUT 
Set up t'meout vector PSU to 7 
Read the Native register 

Check out the bootstrap switch as read only 
Check out the module funcfonal revision as read only 
Check out that the self test enable bit works 
Check out he indicators (i.e LEOS) 
ENDTST 

TIMOUT: Clean stack 

Error NATIVE register timed out 



it's 



; NATIVE REGISTER TEST 

• ********************************************* 

TSTl : SCOPE 

BIT «IT12.aSUR { IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ J THEN TYPE TEST TRACE 

TYPE .30013» :!TYPE ASCIZ STRING 

BR 30012* ;:GET OVER THE ASCIZ 

.ASCIZ <15><12>/TEST 1 - NATIVE REGISTER TEST/ 



:;30013*; 
30012*: 
1000* : 



MOV 
MOV 
MOV 
MOV 



a*4,SAVTIM 
«100l,9«4 
«340.S»6 
NATREG.RO 



CHECK BITS 15-13 READ ONLY 

BIS *160000.NATREG 
MOV NATREG.Rl 
CMP R0,R1 
BEQ 10* 
ERROR ^47 
BR 110* 



CHECK THE INDICATOR BITS 



10$; 



20$: 



BIC 

BIT 

BEQ 

ERROR 

CLR 

MOV 

MOV 



*177.NATREG 

W77.NATREG 

201 

♦ 50 

MER 

#1.R1 

*7.R2 



SAVE UNEXPECTED TIMEOUT TRAP 
SET UP TIMEOUT TRAP 

READ THE NATIVE REGISTER 



TRY TO WRITE TO THE FUN REV BITS 
READ THE NATIVE REGISTER AGAIN 
IF IT CHANGED THEN 

ERROR IN NATIVE REGISTER 



CLEAR THE INDICATOR BITS 
IF THE BITS DION' T CLEAR 
: THEN 

ERROR IN THE NATIVE REGISTER 
CLEAR MER AFTER REPORTING THE ERROR ;MC 
START PATTERN IN FIRST BIT 
SET LOOP COUNT TO 7 



J4 
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TEST NATIVE REGISTER 



SEQ 0046 



1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 



0C5406 
005406 
005412 
005416 
005420 
005422 
005424 
005426 
005430 



005436 
005442 
005450 
005454 
005456 
^05460 
005462 
005464 
005466 

005470 
005474 



050137 
030137 
001002 
104050 
000422 
006301 
077211 
042737 



013700 
052737 
013701 
020100 
001404 
104051 
000402 
104052 
022626 

005037 
013737 



177520 
177520 



000177 177520 



25* : 



30»: 



BIS 

BIT 

BNE 

ERROR 

BR 

ASL 

SOB 

BIC 



Rl.NATREG 

Rl.NATREG 

30$ 

♦ 50 

110$ 

Rl 

R2,25$ 
#177.NATREG 



177520 
007400 
177520 



177520 



172100 
003016 



000004 



CHECK THE BOOT SWITCH TO BE READ ONLY 

nOV NATREG.RO 

BIS #7400.NATREG 

MOV NATREG.Rl 

CMP Rl.RO 

BEQ 110$ 

ERROR ♦SI 

BR 110$ 

100*: ERROR ♦52 

CMP (SP)*.(SP)* 

110$ : CLR MER 

MOV SAVTIM,S#4 



FOR ALL BITS THE ARE INDICATOR DO 
SET THE BIT 
CHECK THAT IT GOT SET 
IF NOT THEN 

ERROR IN THE INDICATOR BITS 

SHIFT PATTERN TO NEXT BIT 
ENDFOR 

CLEAR THE INDICATORS 



READ THE NATIVE REGISTER 

TRY TO URITE TO THE BOOT SELECT SWITCH 

READ IT AGAIN 

IF THE BITS CHANGED THEN 

ERROR IN THE NATIVE REGISTER 



ERROR IN THE NATIVE REGISTER 
ENDTST 

CLEAR MER AFTER REPORTING THE ERROR ;MC 
RESTORE UNEXPECTED TIMEOUT jMC 



I 



T 



I<4 
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TEST 16 BIT ROM CHECKSUM TEST 



»EQ 0049 



1892 
1893 
1894 
1895 
1896 
1897 

005502 

1898 005504 

1899 005512 

1900 005514 
005520 

005570 

1901 005570 
1902 

190< 

190 ; 

190' 005570 

190^ 005576 

190 

1908 

1909 

1910 005604 

1911 005612 

1912 005620 
1913 

1914 005626 

1915 005632 

1916 005640 

1917 005646 

1918 005650 
1719 

1920 005654 

1921 

1922 

1923 005656 
1924 

1925 005660 

1926 005662 

1927 005666 

1928 005674 

1929 005700 

1930 005706 
1931 

1932 

1933 005710 

1934 005712 

1935 005716 
1936 

1937 005720 

1938 005726 
1959 

1940 005732 
1941 

1942 005734 

1943 005736 
1944 



000004 
032777 
001426 
104401 
000423 



012737 
012737 



013737 
012737 
012737 

004737 
052737 
012737 
005001 
012700 

011002 

001014 

104101 
005037 
013737 
005037 
042737 
000475 



062001 
020027 
103405 

062737 
012700 

077212 

005701 
001414 



010000 
005522 



006016 
000340 



000004 
006050 
000360 

030676 
000200 
174000 

100000 



172100 
003016 
177572 
000200 



120000 



000200 
100000 



173426 



000250 
000252 



003016 
000004 
000006 



177520 
172350 



000004 
177520 



172350 



SBTTL TEST 16 BIT ROM CHECKSUM TEST 
ROM'S CHECKSUMS 

16 BIT ROM TEST 
TST2: SCOPE 

#eiT12.aSUR ! IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 

1000$ ! THEN TYPE TEST TRACE 

.30015$ ;:TYPE ASCIZ STRING 

30014$ jsGET OVER THE ASCIZ 
.ASCIZ <15><12>/TEST 2 KDJll D ROM CHECKSUM TEST/ 



BIT 
BEQ 
TYPE 
BR 

:: 30015$: 
30014$: 
1000$ : 



;set trap catcher for 250 for aborts 

mov Ommue r r , S)i^250 
mov #340 . 3*252 

:s«t up location 4 



mov S#4 , savt " m 

mov *timerr,5l*4 

mov #360 . 3*6 

sr pc.setmmu 

is *bit07.3*natreg 

mov #1 74000. ji#ki par* 

clr rl 

mov Obegrom . rO 

mov (r0),r2 

bn« 20$ 

error ♦lOl 

clr mer 

mov savtim.&M 

clr a*srO 

bic «b!t07,a«natrcg 

Br TST3 ; 



ssave unexpected timeout trap 
:set up the timeout trap 



enable ro« in the native register 
rom begins at pa» 17 400 000 
in it the temporary checksum 
get address of beginning of rom 
begrom' 100 000 

get the number of words covered 
by the checksum 
is the size zero ? 
no 



;yes error in rom size 



20$: 



30$; 



add (rO)*,ri 

cmp rO , dbcgrom * 20000 

bio 30$ 

add «200.9«l<!par4 

mov M>egrom,rO 

sob r2.20$ 

tst rl 

beq 40) 



sdi sable the rom 
:go to the next test 

{accumulate the checksum 
; finished the 4k w bank ? 
ino 

;yes bump address by 4 kw 

:get address of beginning of rom 

juntil all Mords are checked 

; i s the checksum correst ? 
iyes. go to the next test 



L4 
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TEST 16 BIT ROM CHECKSUM TEST 



.EQ 0050 



1945 






1946 005740 


104004 




1947 005742 


005037 


172100 


1948 005746 


013737 


003016 


1949 005754 


005037 


177572 


1950 005760 


042737 


000200 


1951 005766 


000445 




1952 






1953 






1954 






1955 






1956 005770 






1957 






1958 






1959 005770 


005037 


172100 


1960 005774 


013737 


003016 


1961 006002 


005037 


177572 


1962 006006 


042737 


000200 


1963 006014 


000432 




1964 






1965 






1966 






1967 






1%8 






1969 006016 


042737 


000200 


1970 006024 


005037 


177572 


1971 006030 


104002 




1972 006032 


022626 




1973 006034 


0050i7 


172100 


1974 006040 


013737 


003016 


1975 006046 


000415 




1976 






1977 






1978 






1979 






1980 006050 






1981 006050 


104041 




1982 006052 


005037 


172100 


1983 006056 


022626 




1984 006060 


042737 


000200 


1985 006066 


005037 


177572 


1986 006072 


013737 


003016 


1987 006100 


000400 




1988 






1*19 






19<»0 






1991 







error 

clr 
mov 
clr 
bic 
Br 



*4 

mer 

savt im.a*4 
aOsrO 

«foit07,S«natreg 

TST3 



;nc. rom checksum error 



;<j' sable tHe rom 
:;go to the next test 



40$: 



clr 
mov 
clr 
bic 
Br 



mer 

savt im,aM>4 
S#sr0 

#bit07,a*natreg 
TST3 



J end of test 



;go to 



:di sable 
the next 



the rom 
test 



; handle trap to 250 
mmuerr 



bic #bit07,a«natreg 

clr a*srO 

error *2 

cmp (spD^.Csp)* 

clr mer 

mov savtim,a#4 

Br TST3 



i disable the ro«n 
sfflinu error 

::go to the next test 



: handle trap to 4 



timerr: 



error +41 

clr mer 

cmp (sp)+.(sp)* 

bic ^it07.a#natreg 

clr SK^rO 

mov savtim,94M 

Br TST3 



i clean stack 

;di sable the rom 



igo to the next test 



••14 



COKOOBO KOJll-OA CLUSTER DIAG. 

TEST KOJll OA DATA PATHS 

1993 
1994 

1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2006 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 



2023 
2024 
2025 



2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 



006166 
006166 
006166 
006174 
006202 
006210 
006214 
006216 
006222 
006226 
006226 
006232 
006236 
006240 
006246 
006254 
006256 
006262 
006264 



013737 
012737 
012737 
005737 
010701 
062701 
012702 

011137 
023721 
001412 
013737 
016137 
104044 
005037 
000401 
077220 
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.SBTTL TEST - KDJll DA DATA PATHS 



.EQ 0051 



006102 000004 

006104 032777 010000 

006112 001425 

006114 104401 006122 

006120 000422 



173026 



000004 
006276 
000340 
000000 

000106 
000007 

000000 
000000 

000000 
177776 

172100 



003016 
000004 
000006 



001126 
001124 



DATA PATH TEST 

This test checks oc't the data and address paths oo the KOJll -0 
Board. The patterns used m!11 be: 

0 

177777 
177400 
170360 
007417 
052525 
125252 

BGNTST 

Set Timeout trap to TIMOUT 
Set timeout priority to 7 
Read location 0 
FOR pattern := first to last 

Write pattern 

Read pattern 

IF Pattern read <> Pattern Written THEN 
ERROR 
ENDFOR 
ENOTST 



sOATA PATH TESTS 

TST3: SCOPE 



:; 30017$: 
30016$: 
1000$: 



eiT 

BEQ 
TYPE 
BR 



ABIT12.aSUR 
1000$ 
.30017$ 
30016$ 
.ASCIZ 



5$: 



006266 013737 003016 000004 



10$: 
15$: 



MOV 


9«4,SAV.IM 


MOV 


«100$,9«4 


MOV 


*340,9«6 


TST 


9«0 


MOV 


PC.Rl 


ADD 


tfPATT-..Rl 


MOV 


#7.R2 


MOV 


(Rl),9«0 


CMP 


a#o.(Ri)» 


BEQ 


10$ 


MOV 


9«0.$B00AT 


MOV 


-2(R1).$GD0AT 


ERROR 


♦44 


CLR 


MER 


BR 


15$ 


SOB 


R2.5$ 


MOV 


SAVTIM.a«4 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
sGET OVER THE ASCIZ 
<15><12>/TEST 3 KDJll-D DATA PATH TEST/ 



SAVE UNEXPECTED TIMEOUT TRAP ;MC 
SET UP THE TIMEOUT TRAP 

READ LOCATION 0 

GET A POINTER TO THE PATTERNS 

SET THE LOOP COUNT TO 7 
FOR ALL OF THE PATTERNS 
WRITE THE PATTERN TO 0 
IF THE PATTERN IS NOT READ BACK 
THEN 

GET READ DATA 
GET EXPECTED DATA 
ERROR IN THE DATA PATHS 
CLR MER AFTER ERROR REPORTING :MC 
: END IF 
ENDFOR 
END TEST 
RESTORE UNEXPECTED TIMEOUT TRAP 



T 



N4 
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TEST KOJU-OA DATA PATHS 
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3FQ 005^ 



2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 



006274 000422 



BR 



TST4 



! sGO TO THE NEXT TEST 



TIMEOUT ROUTINE 



006276 

006304 
006306 

006312 
006314 
006322 

006324 
006326 
006330 
006332 
006334 
006336 
006340 



012737 


006306 


000004 


100»: 


MOV 


«102$.S<>4 


104045 








ERROR 


♦ 45 


005037 


172100 




102 < : 


CLR 


MER 


022626 








CMP 


(SP)».(SP)* 


013737 


003016 


000004 




MOV 


SAVTIM,a#4 


000407 








BR 


TST4 


000000 






PATT: 


.WORD 


0 


177777 








.WORD 


177777 


177400 








.WORD 


177400 


170360 








.WORD 


170360 


007417 








.WORD 


007417 


052525 








.UORO 


052525 


125252 








.UORD 


125252 



; CLEAN STACK 

; RESTORE UNEXPECTED TIMEOU" 
;.-G0 TO THE NEXT TEST 



TRAP 



r 
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TEST MEMORY ACCESSABILITY 

2071 
2072 
2075 
2074 
2075 
2076 
2077 
2076 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 



SEQ 005' 



2094 
2095 
2096 



2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 



006342 000004 

006344 032777 010000 

006352 001426 

006354 104401 006362 

006360 000423 



006430 
006430 
006430 
006436 
006444 
006452 
006456 
006462 
006470 
006470 
006474 
006500 
006502 
006510 
006514 
006522 

006524 
006532 
006534 



006534 
006542 
006544 
006546 



013737 
012737 
012737 
004737 
012701 
012737 

142721 
020127 
103773 
062737 
012701 
023727 
001362 

013737 
000416 



172566 



0O0OC4 
006534 
000340 
030676 
040000 
001600 

000377 
060000 

000200 
040000 
172344 



)03016 
00004 
000006 



172344 

172344 
020000 



.SBTTL TEST MEMORY ACCESSABILITY 



ACCESSIBILITY TEST 

This test Hill check the accessibility of each address of nsMory 
on the KDJll D Board. IF a menory address traps out then an error 
will be flagged. A side effect of this test should be that all iMnory 
is cleared 

BGNTST 

Set timeout trap to TIMOUT 

Set timeout priority to 7 

For MSB.Address ^00000 to 1777777 DO 

Contents of address :" 0 
Go to the next test 

TIMOUT : 

Error Address should not have timed out 
ENDTST 



TST4: 



}S 300191 : 
30018* : 
1000$: 



SCOPE 

BEQ 
TYPE 
BR 



BIT #eiT12.aSUR ; IF BIT 12 IS SET IN SOFTUARE SWITCH REGISTER 

1000* ; THEN TYPE TEST TRACE 

,30019* ;!TYPE ASCIZ STRING 

30018* ::GET OVER THE ASCIZ 

.ASCIZ <15><12>/TEST 4 - MEMORY ACCESSIBILITY TEST/ 



1*: 



MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

BICB 

CMP 

BLO 

ADO 

MOV 

CMP 

BNE 



aM.SAVTIM 

»100*,S»4 

»340,9«6 

PC.SETMMU 

«40000,R1 

»1600,94KIPAR2 

#377, (RD* 

Rl.«60000 

1* 

«200.8«KIPAR2 
#40000, Rl 
3#KIPAR2, #20000 
1* 



003016 000004 



MOV 
BR 



10* : 
20*: 

TIMEOUT ROUTINE 



SAVTIM.a#4 
TST5 



SAVE TIMEOUT 

SET UP THE TIMEOUT TRAP 



GO SET UP THE MMU REGISTERS 
UE UANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
FOR 160000 TO 2000000 
CLEAR OUT A BYTE 

J.F UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENDIF 



!;G0 TO THE NEXT TEST 



012737 006552 

005301 

104046 

005037 172100 



000004 100*! 



MOV 
DEC 
ERROR 
CLR 



#102*,9#4 

Rl 
♦ 46 
MER 



REPORT ERROR 



C5 
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SEQ 0054 

TEST MEMORY ACCESSA8ILITY 

2124 006552 022626 102(: CMP (SP)*.(SP)* : CLEAN STACK 

2125 006554 005037 177572 CLR a#SR0 » 

2126 006560 013737 003016 000004 MOV SAVTIM.a*4 ; RESTORE TIMEOUT 

2127 006566 000400 BR TST5 ; sGO TO THE NEXT TEST 
2128 



D5 
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SEQ 0055 



2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 

2150 
2151 
2152 



006570 000004 

006572 032777 010000 172340 

006600 001427 

006602 104401 006610 

006606 000424 



SBTTL TEST MEMORY ERROR REGISTER 
MEMORY ERROR REGISTER 



This test will check the MEMORY ERROR REGISTER on the KDJll 0 
Board . 

BGNTST 

Setup timeout VECTOR PC to TIMOUT 
Setup timeout VECTOR Priorty to 7 
Setup Party abort VECTOR to PARINT 
Setup Party abort VECTOR Priority to 7 
Do a bus reset 

Read the Memory Error Register (17772100) 
Make sure that the reg'ster bits are in the r'ght state 
Check all R/U bits 
ENDTST 



TST5: SCOPE 



2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 



006660 
006660 
006660 
006664 
006672 
006700 
006702 
006706 
006710 

006714 
006722 
006730 
006736 
006742 
006746 
006754 
006762 
006766 



006772 052737 

007000 013701 

007004 020001 

007006 001403 

007010 104055 

007012 005037 



007016 052737 



; J 30021* I 
30020« : 
1000$: 



BIT 
BEQ 
TYPE 
BR 



«eiT12.9SUR 
lOOOt 
.30021* 
30020* 
.ASCIZ 



005037 


004056 




clr 


parabt 


012737 


000340 


177776 


mov 


«40,a#177776 


122737 


000001 


001220 


CMPB 


#APTENV.*ENV 


001005 






BNE 


1001* 


005737 


001206 




TST 


*PASS 


001402 






BEQ 


1001* 


000137 


007452 




JtIP 


PARENO 


01-737 


000004 


003016 1001*: 


MOV 


aW.SAVTIM 


012737 


007374 


000004 


MOV 


«100*.S«4 


012737 


000340 


000006 


MOV 


#340. 9«6 


013746 


000114 




MOV 


a#114.-(SP) 


013746 


000116 




MOV 


a#ii6.-(SP) 


012737 


007444 


000114 


MOV 


(»PARINT.a#114 


012737 


000340 


000116 


MOV 


«340.8«116 


005037 


172100 




CLR 


a«MER 


013700 


172100 




MOV 


a«MER.RO 



IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
sGET OVER THE ASCIZ 
<15><12>/TEST 5 - MEMORY ERROR REGISTER TEST/ 



in it parity abort mc 



: par 
set the psH to 7 
ARE UE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS? 
YES THEN PROCEED 
NO THEN GO TO THE NEXT TEST 

SAVE UNEXPECTED TIMEOUT TRAP 
SET UP THE TIMEOUT TRAP 

SAVE VECTOR 
SAVE PRIORITY 



.mc 



READ THE MER 



030032 
172100 



172100 
140005 



172100 



CHECK OUT THE MER "ALWAYS READ AS 0" BITS 



BIS 
MOV 
CMP 
BEQ 
ERROR 
CLR 



#30032. MER 

MER.Rl 

RO.Rl 

10* 

♦55 



TRY TO WRITE THE STUCK AT 0 BITS 
READ THE MER 

IF THE STUCK AT 0 BITS CHANGED 
: THEN 

: ERROR IN THE MER 
ENDIF 



; CHECK THAT BITS 0.2.14.15 ARE CLEARED ON RESET 
172100 io*: BIS #140005. MER ; SET ALL THE R/W BITS ON THE BOARD 



r 



E5 



COK0060 KOJll-DA CLUSTER OIAG. 
TEST MEMORY ERROR REGISTER 



2183 
2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

21% 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2221 

2224 

2225 

2226 

2221 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 



007024 
007030 
007034 
007040 
007042 
007046 
007052 
007060 
007062 
007066 
007070 
007076 
007100 
007102 



007106 
007106 
007112 
007120 
007124 
007132 



OC/140 
007142 



007150 
007152 
007156 



007160 
007164 
007166 
007172 
007174 



007200 
007206 



013700 
042700 
020027 
001412 

005037 
010037 
012737 
104056 
005037 
000005 
032737 
001403 
104057 
005037 



004737 
012737 
012701 
042737 
052737 



005011 
042737 



005711 
005737 
000240 



172100 
037772 
140005 

172100 
001126 
140005 

172100 

140005 

172100 



030676 
017600 
057776 
000001 
000004 



005737 004056 
001405 

005037 004056 
104062 

005037 172100 



052737 000001 
005711 
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SEQ 0056 



001124 



172100 



15»: 



MOV MER.RO 

BIC #37772. RO 

CMP R0.*140005 

BEQ 15$ 

CLR MER 

MOV RO . $BDOAT 

MOV *140005.»GDDAT 

ERROR ♦56 

CLR MER 

RESET 

BIT *140005.MER 

BEQ 20$ 

ERROR ^57 

CLR KER 



READ THE MER 

MASK OUT ALL THE UNUANTEO BITS 
IF THE R/U BITS DID NOT GET SC T»€N 
ERROR IN THE MER 

GET RECIEVED DATA 
GET EXPECTED DATA 
REPORT ERROR 

DO RESET 

MAKE SURE THE APPROPIATE BITS GET CLEARED 
IF NOT THEN ERROR 



CHECK OUT THE WRITE WRONG PARITY AND PARITY ERROR ENABLE BITS 



20$: 



172344 

172100 
172100 



JSR PC , SETMMU 

MOV #17600, a*KIPAR2 

r«OV #57776. Rl 

BIC #eiTO.a#MER 

BIS #eiT2.a#MER 

WRITE WRONG PARITY TO LOCATION 1777776 



000004 172100 



003054 



CLR 
BIC 



(Rl) 

fleiT2.<a#MER 



SET UP KPAR2 

POINT TO LAST VIRTUAL ADDRESS IN PAGE 
CLEAR PARITY ERROR ENABLE 
SET WRITE WRONG PARITY 



WRITE WRONG PARITY TO THAT LOCATION 
CLEAR WRITE WRONG PARITY 



MAKE SURE NO PARITY ABORT OCCURS WHEN PARITY ERRORS ARE DISABLED 



TST 
TST 
NOP 



(Rl) 
MERTAG 



TST 

BEQ 

CLR 

ERROR 

CLR 



PARABT 
25$ 

PARABT 

♦62 

S4MER 



READ THE ADDRESS BACK 

SHOULD 
NOT GET 
A 

PARITY ABORT 



IF WE GOT A PARITY ABORT 
THEN 

CLEAR THE ABORT FLAG 
FLAG THE ERROR 

CLEAR MEMORY ERROR REGISTER :MC 
ENDIF 



MAKE SURE A PARITY ABORT OCCURS WHEN PARITY ERRORS ARE ENABLED 
172100 25$ : 



007210 005737 003054 



BIS 
TST 



TST 



#BITO.a#f«R 
(Rl) 



MERTAG 



NOW ENABLE PARITY ABORTS 
THIS HAS TO BE ONE WORD INTRUCTION 
READ THE ADDRESS BACK 



SHOULD 



042737 000001 

022737 000001 
001405 

005037 004056 
104063 

005037 172100 



F5 
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2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 

2248 007214 

2249 007222 

2250 007230 

2251 007232 

2252 007236 

2253 007240 
2254 

2255 
2256 
2257 

2258 007244 

2259 007250 

2260 007256 

2261 007262 

2262 007266 

2263 007272 

2264 007274 

2265 007300 

2266 007306 

2267 007310 
2268 

2269 007314 

2270 007322 

2271 007326 

2272 007332 

2273 007336 

2274 007340 

2275 007344 

2276 007352 

2277 007354 
2278 

2279 007360 
2260 007362 

2281 007366 

2282 007372 
2283 

2284 
2285 
2286 

2287 007374 

2288 007376 
2289 

2290 007402 

2291 007404 

2292 007406 
2293 

2294 007412 

2295 007420 

2296 007424 
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005037 
042737 
013700 
042700 
020027 
001410 
010037 
012737 
104064 
005037 

052737 
013702 
042702 
020227 
001410 
010237 
012737 
104065 
005037 

005011 
005037 
005037 
000407 



004056 
100000 
172100 
170037 
007740 

001126 
007740 

172100 

040000 
172100 
177037 
000040 

001126 
000040 

172100 



177572 
172100 



104060 

005037 172100 

022626 
005011 

005037 177572 

012737 007424 
005037 172100 



172100 
004056 



BIC 

CMP 

BEQ 

CLR 

ERROR 

CLR 



«ITO,a#MER 

«1,PARABT 

30i 

PARABT 

*63 

9«MER 



GET 
A 

PARITY ABORT 
SOON !!! 



; DISABLE PARITY ABORTS 

IF UE DIDN'T GET A PARITY ABORT 
THEN 

CLEAR PARITY ABORT 

ERROR DID NOT GET A PARITY ABORT 
CLEAR MEMORY ERROR REGISTER :MC 



CHECK OUT THE ADDRESS AND EXTENDED MER READ ENABLED 



172100 



001124 



30$ : CLR PARABT 

BIC #BIT15.S*MER 

MOV 8#MER.R0 

BIC 0170037, RO 

CMP R0.*7740 

BEQ 35$ 

MOV RO.$BDDAT 

MOV 07740. JGDDAT 

ERROR *64 

CLR a#MER 



172100 35$; 



001124 



BIS *8IT14,aOMER 

MOV a#MeR,R2 

BIC 0177037. R2 

CMP R2.#40 

BEQ 40$ 

MOV R2.$BDDAT 

MOV #40.$G0DAT 

ERROR *65 

CLR 9«MER 



40$: CLR (Rl) 

CLR SOSRO 

CLR a«MER 

BR 101$ 



TIMEOUT ROUTINE 



100$: 



000004 



101$; 
102$; 



ERROR 
CLR 

CMP 
CLR 
CLR 

MOV 
CLR 



♦60 
SOMER 

(SP)*.CSP)* 

(Rl) 

SOSRO 

«102$.a«4 
a«MER 



CLEAR THE ABORT FLAG 
CLEAR THE PARITY ERROR FLAG 
GET THE MEMORY ERROR REGISTER 
CLEAR THE UNNEEDED BITS 
IF NOT CORRECT BITS SET THEN 
ERROR IN ADDRESS 11 17 
GET RECIEVED DATA 
GET EXPECTED DATA 

CLEAR MEMORY ERROR REGISTER ;MC 

SET ENABLE READ EXTENDED BIT 
READ THE MER AGAIN 
CLEAR THE UNNEEDED BITS 
IF NOT CORRECT BITS SET THEN 

ERROR IN ADOR 18 21 OR READ EXT BIT 
GET RECIEVED DATA 
GET EXPECTED DATA 
ENDIF 

: CLEAR MEMORY ERROR REGISTER :MC 



DISABLE MMU 
ENOTST 



REPORT ERROR 
: CLEAR MEMORY ERROR REGISTER :MC 

CLEAN STACK 

DISABLE MMU 

;MC 

: CLEAR MEMORY ERROR REGISTER :MC 



G5 
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2297 007424 

2298 007430 

2299 007434 

2300 007442 
2301 

2302 
2303 
2304 

2305 007444 

2306 007444 

2307 007450 

2308 007452 



012637 
012637 
013737 
000403 



005237 
000002 



000116 
000114 
003016 



004056 



000004 



MOV 
MOV 
MOV 
BR 



(SP)*.a#116 
(SP)», 3*114 
SAVTIM.a«4 
TST6 



PARITY ABORT ROUTINE 



PARINT : 



PARENO: 



INC 
RTI 



PARABT 



SEQ COS" 



{RESTORE PRIORITY 
;RESTORE VESTOR 
;RESTORE UNEXPECTED TIMEOUT 
!:G0 TO THE NEXT TEST 



FLAG THAT UE CAME HERE 
RETURN 



H5 

COKDOBO KOJll-OA CLUSTER OIAG. 

TEST - MEMORY ERROR REGISTER 

2310 

2311 

2312 

2313 

231* 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

232S 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

233S 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

007452 000004 

2356 007454 032777 010000 171456 

2357 007462 001433 

2358 007464 104401 007472 
007470 000430 

007552 

2359 007552 

2360 007552 005037 177572 

2361 007556 013737 000004 003016 

2362 007564 012737 010130 000004 
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SEQ 0059 



SBTTL TEST DATA SHORTS AND STUCK AT BITS 
DATrSH6RTrAW*STUCI<*AT*BITS*TEST 



This test will check the DATA Rams for Data shorts and stuck at bits. 
Testing occurs as below: 

1. A memory location is checked to be set to 0 

2. IF NOT 0 error 

3. The location is complemented 

4. IF contents NOT -1 error 

5. This is repeated for all addresses 

6. Steps 1 5 are done from location 1777777 to 0 

Note: The KDJll OA board uses 256k X 1 chips. This allows us to 
use only 2 patterns per RAM. IF one bts is shorted to 
another we will detect this when we read for the initial state. 
If it has changed from the expected state then chances are that 
the bits are snorted together. 

A side effect of this test should be that memory is cleared. 

BGNTST 

ENABLE PARITY 

FOR MSB Address :=« 0 to 1.77776 DO BY 2 
Clear Address 
If Contents <> 0 THEN 

ERROR in memory 
Complement the Contents of Address 
IF contents <> -1 THEN 

ERROR in memory 

ENDFOR 

F OR MSB.Address : • 1777776 OOUNTO 0 DO BY 2 
IF contents <> -1 THEN 

ERROR in memory 
Complement the Contents of Address 
IF contents <> 0 THEN 

ERROR in memory 

ENDFOR 
ENDTST 



TST6: SCOPE 



BIT 
BEQ 
TYPE 
BR 
30023*: 
30022*: 
1000$: 

CLR 
MOV 
MOV 



#BIT12,aSWR 
1000* 
,30023* 
30022* 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
J TYPE ASCIZ STRING 
{GET OVER THE ASCIZ 



ASCIZ <15><12>/TEST 6 DATA SHORTS AND STUCK AT BITS TEST/ 



a«SRO 

a*4.SAVTIM 
«100*.9#4 



STORE UNEXPECTED TIMEOUT 
SET UP THE TIMEOUT TRAP 



«r— 

15 

COKOOBO KOJll DA CLUSTER DIAG. MACRO V0S.03 Uednesday 



TEST - DATA SHORTS AND 


STUCK AT 


BITS 






2363 007572 


012737 


000340 


000006 




MOV 


2364 007600 


004737 


030676 






JSR 


2365 007604 


012701 


040000 






MOV 


2366 007610 


012737 


001600 


172344 




MOV 


2367 007616 


013746 


000114 






MOV 


2366 007622 


015/46 


000116 






MOV 


2569 007626 


A 1 17T7 

012757 


010116 


000114 




MOV 


23 70 007634 


012757 


000340 


000116 




MOV 


23/1 00/042 


AQ^7T7 


000001 


172100 




BIS 


CO '2 












23 ' 3 OO IbVj 








10»: 




cif^ 00/630 


A1 1 1 T7 

01115 / 


001126 






MOV 


2dfD 00/^634 


AA1 il/^£ 








BEQ 


23 r6 vXJ fbOo 


00305 / 


001124 






CLR 


' ' OU (002 


A 1 A1 T7 


001122 






MOV 


2J'0 OU'OOo 


104UO1 








ERROR 


OX7Q A07iL7A 










BR 


2'3ov 














AA^ 111 

003J I 1 






15$: 


COM 




A1 1 1 T7 


001126 






MOV 


OXAV <V>77ftf> 


AOD1 07 


177777 






CMP 




/VM O 
OOi'tJ.C 








BEQ 




ni 07T7 


177777 


001124 




MOV 


cOOO t 1 IH 


Al A1 T7 


001122 






MOV 


OXA7 (V>773n 


lOc / 3 / 


000002 


001122 




SUB 


9XAA f>ft779<s 










ERROR 












BR 














2391 007732 


020127 


060000 




20$: 


CMP 


2392 007736 


103744 








BLO 


2393 007740 


062737 


000200 


172344 




ADD 


2394 007746 


012701 


040000 






MOV 


2395 007752 


023727 


172344 


020000 




CMP 


2396 007760 


001401 








BEQ 


2397 007762 


000732 








BR 


2398 007764 








25(: 




2399 007764 


004737 


030610 






isr 


15 IN HERE TO 


TEST THE 


DATA RETENTION OF MEMORY. 



2400 
2401 
2402 

2403 007770 012701 060000 

2404 007774 162737 000200 172344 

2405 010002 30$: 

2406 010002 014137 001126 

2407 010006 023727 001126 177777 

2408 010014 001407 

2409 010016 012737 177777 001124 

2410 010024 010137 001122 

2411 010030 104061 

2412 010032 000450 
2413 

2414 010034 005111 35$: 

2415 010036 011137 001126 

2416 010042 001406 

2417 010044 005037 001124 

2418 010050 010137 001122 

2419 010054 104061 



MOV 
SUB 

MOV 

CMP 

BEQ 

MOV 

MOV 

ERROR 

BR 

COM 
MOV 
BEQ 
CLR 
MOV 
ERROR 



09 Apr 66 09:43 



Page 



19 1 



SEQ 006C 



«340,S«6 

PC.SETMMU 

#40000. Rl 

«1600.3«KIPAR2 

a#114.-(SP) 

a*116.-(SP) 

»50$.S«114 

«340.9«116 

tf6IT0.a«MER 



(R1).$BDDAT 
15$ 

IGDOAT 
R1.$B0ADR 
♦61 
101$ 

(Rl) 

(R1).$BD0AT 
CRD*. #177777 
20$ 

#-l.$GDDAT 

R1.$BDADR 

#2.$6DA0R 

♦61 

101$ 

Rl, #60000 
10$ 

#200.a#KIPAR2 
#40000. Rl 
9«KIPAR2. #20000 
25$ 
10$ 



pc. delay 



#60000. Rl 
«200.a#KIPAR2 

-(R1).$BDDAT 
$B00AT. #177777 
35$ 

#177777. $GDDAT 
Rl , $BDADR 
♦61 
101$ 

(Rl) 

(R1).$B0DAT 
40$ 
$GDOAT 
Rl . $BDA0R 
♦61 



; GO SET UP THE MMU REGISTERS 

: UE UANT TO MAP THRU PAGE 2 

t SET UP KPAR 2 

I SAVE VECTOR jMC 

I SAVE PRIORITY sMC 

J set up trap ;(i>c 

i " " '• :mc 

: ENABLE PARITY ABORTS :mc 



FOR ADDRESS 160000 TO 2000000 DO 
READ MEMORY 
IF IT IS NOT ZERO THEN 
GET THE EXPECTED DATA 
GET THE VIRTUAL ADDRESS 
ERROR IN THE MEMORY 
RESTORE AND TO THE NEXT TEST 

COMPLEMENT MEMORY 
SAVE THE RECIEVED DATA 
IF ITS NOT " -1 THEN 
ERROR IN THE MEMORY 
GET EXPECTED DATA 
GET THE VIRTUAL ADDRESS 



RESTORE AND TO THE NEXT TEST 



IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENDIF 
ENDFOR 



MOV 



#200. R5 



THIS LOOP 



26$: 
27$: 



GET 



MOV #177777. R4 
SOB R4.27$ 
SOB R5.26$ 
A POINTER TO THE TOP OF A PAGE 
SET KIPAR TO POINT TO THE TOP PAGE 
FOR LAST ADDRESS TO FIRST BY 2 
SAVE THE DATA 

READ BACK MEMORY MAKE SURE IT IS 1 
IF NOT - -1 THEN 

GET THE EXPECTED DATA 
GET THE VIRTUAL ADDRESS 
ERROR IN MEMORY 
RESTORE AND TO THE NEXT TEST 

COMPLEMENT MEMORY 
IF NOT » 0 THEN 

ERROR IN MEMORY 

GET EXPECTED DATA 

GET THE VIRTUAL ADDRESS 



J5 
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SCO 0061 



2420 010056 


000436 






BR 


101$ s 


RESTORE AND TO THE NEXT TEST 


2421 














2422 010060 


020127 


040000 




40$: CMP 


Rl. 940000 i 


: IF VIRTUAL ADDRESS ABOUT TO ENTER NEXT 


2423 010064 


101346 






BHI 


30$ i 


: THEN 


2424 010066 


162737 


000200 


172344 


SUB 


#200,3#KIPAR2 i 


ADJUST THE PAR 


2425 010074 


012701 


060000 




MOV 


#60000, Rl ; 


RESET THE VIRTUAL ADDRESS TO TOP OF 


2426 010100 


023727 


172344 


001400 


CMP 


3«KIPAR2,«1400 ; 


; ENOIF 


2427 010106 


001335 






BNE 


30$ i 


ENDFOR 


2428 010110 


005037 


172100 




CLR 


MER 


CLEAR THE MER 


2429 010114 


000417 






BR 


101$ 


RESTORE AND TO THE NEXT TEST 


2430 














2431 








: PARITY ABORT 


ROUTINE 




2432 








• 






2433 














2434 010116 


104072 






50* : ERROR 


♦72 


REPORT ERROR 


2435 010120 


005037 


172100 




CLR 


MER 


INIT THE MER 


2436 010124 


022626 






CMP 


(SP>,(SP)* 


CLEAN STACK 


2437 














2438 








; VECTOR SAVE AND RESTORE 




2439 








jUNEXPECTED PARITY ABORT ERROR ROUTINE 




2440 010126 


000412 






BR 


101$ 




2441 














2442 








s 






2443 








s TIMEOUT ROUTINE 




2444 








i 






2445 














2446 010130 


012737 


010160 


000004 


100$: MOV 


«102$.a«4 




2447 010136 


005301 






DEC 


Rl 




2448 010140 


104046 






ERROR 


♦46 


i REPORT ERROR 


2449 010142 


022626 






CMP 


(SP)*,(SP)* 


i CLEAN STACK 


2450 010144 


005037 


172100 




CLR 


MER 




2451 010150 


005037 


177572 




CLR 


9«SR0 




2452 














2453 010154 


005037 


172100 




101*: CLR 


MER 


i INIT THE MER 


2454 














2455 010160 








102$ : 






2456 010160 


012637 


000116 




MOV 


(SP)^,a#116 


; RESTORE PRIORITY 


2457 010164 


012637 


000114 




MOV 


(SP)». 30114 


J RESTORE VECTOR 


2458 010170 


013737 


003016 


000004 


MOV 


SAVTIM.aM 


i RESTORE UNEXPECTED TIMEOUT 


2459 010176 


000400 






BR 


TST7 ;sGO TO • 


rHE NEXT TEST 


2460 














2461 















T 
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SEO 006^ 



2463 
?464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2486 

2489 

2490 

2491 

2492 

010200 

2493 010202 

2494 010210 

2495 010212 
010216 



24% 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 



010302 
010302 
010302 
010306 
010314 
010322 
010326 
010332 
010334 
010336 
010342 
010346 
010352 
010356 
010362 
010366 
010370 
010372 
010376 
010402 
010404 



000004 
032777 
001434 
104401 
000431 



004737 
013737 
013737 
004737 
012704 
005005 
005003 
004737 
012704 
012705 
012703 
004737 
012704 
005005 
005003 
004737 
004737 
005004 
005005 



010000 170730 
010220 



030676 

000004 003016 
010476 000004 
031012 
000001 



031176 
000001 
177777 
000001 
031176 
000002 



031176 
031350 



SBTTL TEST - QUICK VERIFY DATA AND ADRESSIhG TEST 

UNIQUE ADDRESSING TEST 

This test will check the data and addressing of the memories. 
It uses the KNAIZUK HARTMANN QUICK VERIFY TRAM TEST ALGORITHM. 
Ths algorithm will test memory for all stuck at faults in the 
data and addressing 

Memory is split up into sections of 3. 
I.E. 6.1.2 3,4.5 6.7,10 ... 

Testing works as follows. 

1. Write a 0 nto the 2nd and 3rd address of all groups 
write a 1 into the 1st address of all groups 

2. make sure that the 2nd address of all groups contan 0 

3. Write a 1 into the 2nd address of all groups 

4. Make sure that the 3rd address of all groups contan 0 

5. Make sure that the 1st and 2nd address of all groups 
contain -1 

6. Write a 0 'nto the 1st address of all groups 

7. Make sure that the 1st address of all groups contain 0 

8. Write a 1 into the 3rd address of all groups 

9. Make sure that the 3rd address of all groups contain 1 



• ; *********** 

TST7: 



30024*: 
1000$: 



SCOPE 






BIT 


*eiT12.aSUR : IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 


BEQ 


1000$ 


THEN TYPE TEST TRACE 


TYPE 


.30025* 


:TYPE ASCIZ STRING 


BR 


30024* 


■I GET OVER THE ASCIZ 


• 


•ASCIZ <15><12>/TEST 7 - QUICK VERIFY DATA AND ADDRESSING TEST/ 


JSR 


PC, SET WW 


SET UP THE MMU REGISTERS 


MOV 


cMW.SAVTIM 


STORE UNEXPECTED TIMEOUT 


MOV 


100*. SM 


TIMEOUT 


CALL 


iNir«M 


INITIALIZE MEMORY 


MOV 


*1.R4 


SET ADDRESS INDEX TO 1 


CLR 


R5 


SET EXPECTED PATTERN TO 0 


CLR 


R3 


SET OPERATION TO READ 


CALL 


RWTMEM 


GO READ AND CHECK MEMORY 


MOV 


<H.R4 


SET ADDRESS INDEX TO 1 


MOV 


0-1.R5 


SET WRITE PATTERN TO -1 


MOV 


#1.R3 


SET OPERATION TO WRITE 


CALL 


RWTMEM 


GO WRITE THE MEMORY 


MOV 


*2.R4 


SET ADDRESS INDEX TO 2 


CLR 


R5 


SET EXPECTED PATTERN TO 0 


CLR 


R3 


SET OPERATION TO READ 


CALL 


RWTMEM 


GO READ AND CHECK MEMORY 


CALL 


RRMEM 


READ AND CHECK I AND 1*1 INDEXES 


CLR 


R4 


SET ADDRESS INDEX TO 0 


CLR 


R5 


SET PATTERN TO 0 
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2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 



010406 
010412 
010416 
010420 
010422 
010424 
010430 
010434 
010440 
010444 
010450 
010454 
010460 
010462 
010466 
010474 



010476 
010504 
010506 
010510 
010514 
010516 
010522 
010530 



012703 
004737 
005004 
005005 
005003 
004737 
012704 
012 705 
012703 
004737 
012704 
012705 
005003 
004737 
013737 
000416 



012737 
005301 
104046 
005037 
022626 
005037 
013737 
001400 



000001 
031176 



031176 
000002 
177777 
000001 
031176 
000002 
177777 



031176 

003016 000004 



MOV 


*1.R3 


CALL 


HUintn 


CLK 


Oil 

K4 


CLK 




Pi d 
CLR 


H5 


CnLL 


Ku 1 ntn 






MOV 


» 1.R5 


MOV 


*1.R3 


CALL 


RUTMEM 


MOV 


#2.R4 


MOV 


#-l.R5 


CLR 


R3 


CALL 


RUTMEM 


MOV 


SAVTIM,8#4 


BR 


TSTIO 



TIMEOUT ROUTI^E 



010522 000004 100$ : 



172100 
177572 

003016 000004 



102$: 



mov 

DEC 

ERROR 

clr 

CMP 

CLR 

MOV 

BEQ 



«102$.S#4 

Rl 

♦46 

mer 

(SP)*.(SP) 
a«SRO 
SAVTIM,a#4 
TSTIO 



Page 20 1 



SEQ 0063 



SET OPERATION TO URITE 
GO URITE THE MEMORY 
SET ADDRESS INDEX TO 0 
SET EXPECTED PATTERN TO 0 
SET OPERATION TO READ 
GO READ AND CHECK MEMORY 
SET ADDRESS INDEX TO 2 
SET PATTERN TO 1 
SET OPERATION TO URITE 
GO URITE THE MEMORY 
SET ADDRESS INDEX TO 2 
SET EXPECTED PATTERN TO 1 
SET OPERATION TO READ 
GO READ AND CHECK MEMORY 
RESTORE UNEXPECTED TIMEOUT 
;G0 TO THE NEXT TEST 



I REPORT ERROR 

J CLEAN STACK 

RESTORE UNEXPECTED TIMEOUT 
J sGO TO THE NEXT TEST 
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.SBTTL TEST CHECK PARITY DETECT LOGIC AND RAMS 



SEO 0064 



2547 
2548 
2549 
2550 
2551 
2552 
2555 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 

2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 



2593 
2594 
2595 
2596 
2597 
2598 
2599 



010532 
010534 
010542 
010544 
010550 
010552 
010556 
010564 
010566 
010572 
010600 
010602 
010606 

010656 
010656 
010656 
010662 
010666 
010672 
010676 
010704 



000004 
122737 
001005 
005737 
001402 
000137 
032777 
001402 
000137 
032777 
001426 
104401 
000423 



005037 
005037 
013746 
013746 
012737 
012737 



CHECK PARITf DETECT LOGIC 

This test Mill check out the parity detection logic on th« KDJll-OA 
board. Ue will write wrong parity to all locations an4 than we will 
Expect the a parity trap on a read. 

BGNTST 

Set up Parity Vector (114) To PARINT 

Enable Write Bad parity (Set bit 2 in MER (17772100)) 

Clear all of memory 

Read first location written to 

IF Parity Abort Occurs THEN 

Error There should be no Parity Aborts when disabled 
Enable Parity Error (Set Bit 0 in MER (17772100)) 
FOR First Address to Last address DO 
BEGIN 

READ Address 

NOP 

IF No Interrupt THEN 

Error Didn't Detect Bad parity 

ELSE 

Clear the interrupt flag 

Read the MER and mtike sure the obtained address is the correct one 

ENDFOR 
PARINT: 

Flag that an interrupt occured 
RTI 
ENDTST 



ooooc 

0012C> 



001220 



011552 

000200 170354 
011552 

010000 170340 
010610 



172100 
004056 
C00114 

000116 

007444 000114 
000340 000116 



************** 

TSTIO: SCOPE 
CMPB 
BNE 
TST 
BEQ 
JMP 

2000$: BIT 
BEQ 
JHP 

100$: BIT 
BEQ 
TYPE 
BR 
30027$: 

30026$: 

1000$: 

CLR 
CLR 
MOV 
MOV 
MOV 
MOV 



***********************«>***********•*********•**** 



«APTENV.$ENV 

2000$ 

$PASS 

2000$ 

NXTST 

06IT7.aSUR 

100$ 

NXTST 

«BIT12.9SUR 
1000$ 
,30027$ 
30026$ 



iARE UE IN APT MODE? 
sIF NOT: DO THIS TEST 
8 FIRST PASS?? 
•.IF YES. DO IT 
.-ELSE GO TO THE NEXT TEST 
IF BIT7 SET IN SUR THEN SKIP THIS TEST 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
sTYPE ASCIZ STRING 
sGET OVER THE ASCIZ 



ASCIZ <15><12>/TEST 10 CHECK PARITY DETECT TEST/ 



S«MER 
PARABT 

a#ii4, (SP) 
a*ii6, (SP) 

«PARINT,9«114 
«340,9«116 



INIT THE MEMORY ERROR REG. 

SAVE VECTORE 
SAVE PRIORITY 
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EQ 0065 

TEST CHECK PARITY DETECT LOGIC AND RAMS 



2600 








i 










260! 








: CLEAR 


ALL OF 


MEMORY WITH URITE URONG PARITY 


SET 


2602 








; 










2603 010712 


004737 


030676 






JSR 


PC.SETMMU : 


GO 


SET UP THE MMU REGISTERS 


2604 010716 


105037 


003014 






CLRB 


PARPAT i 


INITIALIZE FIRST PATTERN TO ZERO 


2605 010722 


012701 


040000 






MOV 


#40000. Rl i 


UE 


UANT TO MAP THRU PAGE 2 


2606 010726 


012737 


001600 


172344 




MOV 


#1600,S«KIPAR2 i 


SET UP KPAR 2 


2607 010734 


012703 


000002 






MOV 


#2.R3 i 


LOOP FOR ODD PARITY AND EVEN PARITY 


2606 


















2609 


















2610 010740 








1$: 










2611 














BGNOO 


2612 010740 


012737 


000004 


172100 




MOV 


«4 , 9«MER 




ENABLE URITE URONG PARITY ;MC 


2613 010746 


113721 


003014 






MOVB 


PARPAT. (RD* 




CLEAR OUT A BYTE 


2614 010752 


005037 


172100 






CLR 


a#MER 




DISABLE URITE URONG PARITY :MC 


2615 
















FOR 160000 TO 2000000 


2616 010756 


020127 


060000 






CMP 


Rl, #60000 






IF UE HAVE PASSED THE PAGE BOUNDARY 


2617 010762 


103766 








BLO 


1* 






: THEN 


2616 01C764 


062737 


000200 


172344 




ADO 


*200.a<H<IPAR2 






: POINT KPAR2 TO A NEU PAGE 


2619 010772 


012701 


040000 






MOV 


040000. Rl 






: SET THE VIRTUAL ADDRESS TO PAGE 2 


2620 010776 


023727 


172344 


020000 




CMP 


S«KIPAR2.«20000 






ENDIF 


2621 011004 


001355 








BNE 


1* 




ENDFOR 


2622 








; 










2623 








; LET • S 


NOW MAKE SURE THAT THE ABORTS OCCUR 






2624 








: 










2625 011006 








20$: 










2626 Oli.006 


012737 


001600 


172344 




MOV 


«1600,9«KIPAR2 




SET UP PAR 2 


2627 011014 


012701 


040000 






MOV 


MOOOO.Rl 




SET VIRTUAL ADDRESS TO PAGE 92 


2628 011020 








22$: 






■ BGNDO 


2629 011020 


042737 


000004 


172100 




BIC 


#BIT2.a<>MER 






DISABLE URITE URONG PARITY 


2630 011026 


052737 


000001 


172100 




BIS 


«BIT0,3«MER 






ENABLE PARITY ERRORS 


2631 011034 


105711 








TSTB 


(Rl) 






READ THE BYTE 


2632 011036 


005737 


003054 






TST 


MERTAG 








2633 011042 


000240 








NOP 










2634 


















PARITY 


2635 


















ABORT 


263b 








; 










: TRAP 


2637 


















SHOULD 


2638 








s 










HAPPEN 


2639 








s 










SOON !!! 


2640 








; 












2641 








; 












2642 011044 


023727 


004056 


000001 




CMP 


PARA6T.«1 






• IF A PARITY ABORT DIDN'T OCCUR 


2643 011052 


001410 








BEQ 


25* 






: THEN 


2644 011054 


005037 


004056 






CLR 


PARABT 






(EITHER 0 OR >1 ABORTS HAVE OCCURED) 


2645 011060 


005037 


172100 






CLR 


HER 






CLEAR OUT THE MER 


2646 011064 


104063 






ERROR 


♦63 






ERROR DID NOT GET A PARITY ABORT 


2647 011066 


005037 


172100 






clr 


mer 






2646 011072 


000465 








BR 


40* 






: ELSE 


2649 


















2650 








i CHECK 


OUT THE 


ADDRESS AND EXTEhOEO MER 


READ 


ENABLED 


2651 


















2652 011074 








25*: 








: ARE BITS 0 AND 15 ARE SET ;MC 


2653 011074 


032737 


100001 


172100 


BIT 


«100001.9«MER 






2654 011102 


001003 






BNE 


30$ 






: YES THEY ARE jHC 


2655 011104 


104073 








ERROR 


♦ 73 






: NO THEY'RE NOT SET jMC 


2656 011106 


005037 


172100 






cir 


mer 







DC 
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2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
26% 
2697 
2698 
OF I'S 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 



011112 

011120 

011122 

011126 

011132 

011136 

011140 

011144 

011150 

011154 

011156 

011160 

011164 

011170 

011172 

011176 

011204 

011210 

011214 

011220 

011224 

011226 

011230 

011234 

011240 

011242 

011246 

011252 

011256 

011260 

011264 

011266 

011274 

011300 

011306 

011310 

011316 

011320 

011322 

011326 

011334 

011342 

011346 



011346 
011352 
011356 
011364 
011364 
011366 
011372 
011374 
011402 
011406 
011414 



042737 


iOOOOO 


172100 


30$: 


BIC 


«eiT15.9«MER 






CLEAR THE PARITY ERROR Fi 


010100 








nov 


Rl.RO I • 






GET THE VIRTUAL ADORE^^ 


042700 


160000 






BIC 


#160000, RO ; 






MASK OUT THE PAGE BITS 


072027 


177772 






ASH 


« 6,R0 ; 






SHIFT OUT BITS 0-5 


063700 


172344 






ADO 


S<H<IPAR2,R0 : 






CREATE BITS 6-21 


010004 








MOV 


R0,R4 ; 






SAVE A COPY FOR LATER 


042704 


170037 






BIC 


#170037. R4 J 






CLEAR OUT UNNEEDED BITS 


013705 


172100 






MOV 


S#MER . R5 t : 






READ THE MER 


042705 


170037 






BIC 


#1 70037. R5 ; . 






CLEAR THE UNNEEDED BITS 


020405 








CMP 


R4.R5 : 






IF NOT CORRECT BITS SET THEN 


001407 








BEQ 


35» ! 






ERROR IN ADDRESS 11-17 


010437 


001124 






MOV 


R4.«G0OAT ; 






GET EXPECTED DATA 


010537 


001126 






MOV 


R5,$BDUAT : 






GET RECIEVED DATA 


104064 








ERROR 


*64 ; 








005037 


172100 






clr 


mer 






052737 


040COO 


172100 


35»: 


BIS 


<)BIT14.9«MER ; 






SET ENABLE READ EXTENDED BIT 


013705 


172100 






MOV 


S«MeR,R5 i 
#177037, R5 






READ THE MER AGAIN 


042705 


177037 






BIC 






CLEAR THE UNNEEDED BITS 


072027 


177771 






ASH 


#-7.R0 ! 






GET BITS 18 21 IN RIGHT PLACE 


042700 


177037 






BIC 


#177037. RO ; 






MASK OUT IJNNEEDED BITS 


020005 








CMP 


R0,R5 ; 






: IF NOT CORRECT BITS SET THEN 


001407 








BEQ 


404 : 






ERROR IN AOOR 18-21 OR READ EXT 


010537 


001126 






MOV 


R5,$BDDAT ; 






GET RECIEVED DATA 


010037 


001124 






MOV 


RO,)GDDAT i 






GET EXPECTED DATA 


104065 








ERROR 


*65 ; 




: ENDIF 


005037 


172100 






clr 


mer 






005037 


172100 




40$: 


CLR 


9#MER ! 




: RESET MER 


005037 


004056 






CLR 


PARABT : 




: CLEAR THE PARITY ABORT TRAP 


005201 








INC 


Rl : 




: BUMP UP THE ADDRESS 


020127 


060000 






CMP 


Rl. #60000 ; 




: IF WE HAVE PASSED THE PAGE BOUNDARY 


103655 








BLO 


224 i 






• THEN 


062737 


000200 


172344 




ADD 


#200,3#KIPAR2 ; 






': POINT KPAR2 TO A NEW PAGE 


012701 


040000 






MOV 


#40000. Rl : 






: SET THE VIRTUAL ADDRESS TO PAGE 2 


023727 


172344 


020000 




CMP 


9«KIPAR2. #20000 ; 




: ENDIF 


001244 








6NE 


224 i 


: DOUNTIL UE HAVE READ ALL ADDRESSES 


112737 


000001 


003014 




MOVB 


#1,PARPAT : 


: THIS TIME WE WANT AN ODD # OF 1 S 


005303 








DEC 


R3 ; 


: DECREMENT LOOP COUNT 


001412 








BEQ 


SOI ; 






012701 


040000 






MOV 


#40000, Rl : 


i WE 


WANT TO MAP THRU PAGE 2 


012737 


001600 


172344 




MOV 


#1600.a«KIPAR2 : 


: SET UP KPAR 2 


052737 


000004 


172100 




BIS 


#BIT2.MER 2 


: ENABLE WRITE WRONG PARITY 


000137 


010740 






JMP 


1* J DOUNTIL UE DONE IT FOR EVEN AND ODD 



NUMBER 



50*: 



CLEAR ALL OF MEMORY WITH WRITE V JNG PARITY CLEAR 



004737 
012701 
012737 

105021 
020127 
103774 
062737 
012701 
023727 
001401 



030676 
040000 
001600 



060000 

000200 
040000 
172344 



172344 

172344 
020000 



601: 



JSR PC.SETMMU 

MOV #40000. Rl 

MOV »1600.9«KIPAR2 

CLRB CRD* 

CMP Rl. #60000 

BLO 60$ 

ADD #200,9#KIPAR2 

MOV #40000, Rl 

CMP a#KIPAR2 . #20000 

BEQ 70$ 



GO SET UP THE MMU REGISTERS 
WE WANT TO MAP THRU PAGE 2 
SET UP KPAR 2 
FOR 160000 TO 2000000 
CLEAR OUT A BYTE 

IF WE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENDIF 
ENDFOR 



C6 
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TEST CHECK PARITY DETECT LOGIC AND RAMS 



2714 011416 


000762 




3715 








2716 








P717 








2718 


011420 






2719 


011420 


012737 


001600 


2720 


011426 


012701 


040000 


2721 


011432 






2722 


011432 


052737 


000001 


2723 


011440 


105711 




2724 


011442 


012737 


177777 


2725 








2726 








2727 








2728 








2729 








2730 








2731 








2732 








2733 








2734 


011450 


005737 


004056 


2735 


011454 


001407 




2736 


011456 


005037 


004056 


2737 


011462 


005037 


172100 


2738 


011466 


104063 




2739 011470 


005037 


172100 


2740 


011474 


005201 




2741 


011476 


020127 


060000 


2742 


011502 


103753 




2743 


011504 


062737 


000200 


2744 


011512 


012701 


040000 


2745 


011516 


023727 


172344 


2746 


011524 


001401 




2747 


011526 


000741 




2748 011530 


005037 


177572 


2749 


011534 


005037 


172100 


2750 


011540 


012637 


000116 


2751 


011544 


012637 


000114 


2752 


011550 


000400 




2753 


011552 







172344 

172100 
003054 



LET 
70»: 

75»: 



BR 60» : 

S NOW MAKE SURE THAT THE ABORTS DON T OCCUR 



80i: 



172344 
020000 



90<: 



NXTST: 



MOV 
MOV 

BIS 

TSTB 

MOV 



TST 

BEQ 

CLR 

CLR 

ERROR 

clr 

INC 

CMP 

BLO 

ADD 

MOV 

CMP 

BEQ 

BR 

CLR 

CLR 

MOV 

MOV 

BR 



*1600.a#KIPAR2 
#40000. Rl 

«6IT0,a#MER 

(Rl) 

# l.MERTAG 



PARABT 
80$ 

PARABT 
MER 
♦63 
mer 

Rl 

Rl.*60000 
75* 

#200,a«KIPAR2 

*40000.R1 

a*<IPAR2,«0000 

90* 

75* 

a«SRO 

99MER 

(SP)*.a*116 

(SP)*.a#ii4 

TSTll 



SET UP PAR 2 

SET VIRTUAL ADDRESS TO PAGE 92 
BGNOO 

: ENABLE PARITY ERRORS 
: READ THE BYTE 



PARITY 
ABORT 
TRAP 
SHOULD NOT 
HAPPEN !!! 



IF A PARITY ABORT HAS OCCURED 
THEN 

INITIALIZE THE MER 
ERROR A PARITY ABORT HAS OCCUPED 



BUMP UP THE ADDRESS 
IF UE HAVE PASSED THE PAGE BOUNDARY 
THEN 

POINT KPAR2 TO A NEW PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 
ENDIF 

DOUNTIL UE HAVE READ ALL ADDRESSES 



DISABLE THE MMU 

RESTORE PRIORITY 
RESTORE VECTOR 
;!G0 TO The NEXT TEST 



D6 

COKOOBO KOJll OA CLUSTER 01 AG. 

TEST tTC BIT 7 

2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
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•SBTTL TEST - LTC BIT 7 



2785 
2786 
2787 



2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 



011552 000004 

011554 032777 010000 

011562 001420 

011564 104401 011572 

011570 000415 



167356 



011624 
011624 
011624 
011632 
011640 
011646 
011652 
011654 
011656 
011662 
011666 
011674 
011676 
011700 
011702 
011704 
011706 
C11710 
011712 
011714 
011716 



013737 
012737 
012737 
005737 
005000 
005001 
012703 
012702 
032737 
001402 
005200 
000401 
005201 
077210 
005700 
001402 
005701 
001004 
077315 



000004 
011736 
000340 
177546 



000001 
177777 
000200 



LTC BIT 7 TEST 

This test check for the existence of the LTC register and it 
makes sure that the clock is ticking. 

BGNTST 

Set up timeout vector PC to TIMOUT 
Set up timeout vector PSU to 7 
Read the LTC CSR 
IF not timed OUT THEN 

FOR a set amount of t ' me 
Check bit? 
IF BIT7 is set THEN 

Increment BIT7 set flag 
ELSE 

INCREMENT BIT7 Clear Flag 

ENDFOR 

IF either flag has not been set at all THEN 
Error Clock "s not ticking 
ENDTST 

TIMOUT: Clean stack 

Error LTC register timed out 



003016 
000004 
000006 



177546 1$: 



TSTll: SCOPE 
BIT 
BEQ 
TYPE 
BR 
300291: 

30028 « : 

lOOOi: 

MOV 
MOV 
MOV 
TST 
CLR 
CLR 
MOV 
MOV 
BIT 
BEQ 
INC 
BR 
INC 
SOB 
TST 
BEQ 
TST 
BNE 
SOB 



;LTC BIT7 TEST 



«6IT12.9SUR 
1000* 
.30029$ 
300281 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
sGET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 11 - LTC BIT7 TEST/ 



5$: 
lOi: 



20$: 



a«4,SAVTIM 
«100$,3«4 
#340, 3«6 

LKS 

RO 

Rl 

*1.R3 

#177777, R2 

«IT7,LKS 

5» 

RO 

10$ 

Rl 

R2.1$ 

RO 

20$ 

Rl 

25$ 

R3,l$ 



SAVE UNEXPECTED TIMEOUT 
SET UP THE TIMEOUT TRAP 

READ THE LKS REGISTER 
CLEAR THE HIGH COUNTER 
CLEAR THE LOU COUNTER 

SET UP A COUNT 
FOR AN AMOUNT OF TIME 
CHECK BIT 7 OF 



"1' 



THE LKS 
THEN 



IF IT IS A 

BUMP UP RO 
ELSE 

BUMP UP Rl 
EfOFOR 

IF rtO - 0 OR 
Rl = 0 

ERROR UITH BIT 7 OF LTC 
TOLERATE ONE ERROR ONLY 



THEN 



E6 



COKOOBO KOJll-DA CLUSTER OIAG. 
TEST LTC bit 7 
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SFO OOr ' 



2808 
2809 
2810 
2811 
2812 
2813 
2814 
2015 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 



011720 104053 ERROR *53 

011722 005037 172100 clr mer 

011726 013737 003016 000004 251: MOV SAVTIM.a#4 

011734 000412 BR TST12 



TIMEOUT R0UTI^€: 



011736 012737 011752 000004 100$: mov #102$. a#4 

011744 104054 ERROR ^54 

011746 005037 172100 clr mer 

011752 022626 102$: CMP (SP)«.(SP)« 

011754 013737 003016 000004 MOV SAVTIM.a#4 



; CNOTST 

; RESTORE UNEXPECTED TIMEOUT 
:;G0 TO THE NEXT TEST 



J REPORT ERROR 
s CLEAN STACK 

; RESTORE UNEXPECTED TIMEOUT 



re 



CCy<D0BO KOJll OA CLUSTER OIAC. 

TEST LKS INTERRUPT PRIORITY 

2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
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•SBTTL TEST LKS INTERRUPT PRIORITY 

CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
AND DON'T HAPPEN AT PRIORITY 6. 
ROUTINE TEST 

IF UFO AND LKS IS DISABLED THEN 
EXIT TEST 

ENDIF 

SET PRIORITY TO 5 
CLEAR INTERRUPT FLAG 
LET LKS<06>»*1 ^ENABLE INTERRUPTS) 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
REPEAT 

DECREMENT COUNTER 
UNTIL INTERRUPT FLAG EQ #3 OR COUNTER EQ *0 
CLEAR LKS<06> 
IF LKS<07> EQ *1 THEN 

ERROR (WAS NOT CLEARED ON INTERRUPT) 

ENOIF 

IF COUNTER LT TIME.REQUIRED FOR 3 INTERRUPTS FOR 800HZ 
ERROR (INTERRUPTS NEVER GO LOU) 

ENDIF 

IF INTERRUPT FLAG LT *3 THEN 

ERROfi (INTERRUPTS DON'T HAPPEN) 

ENDIF 

CLEAR INTERUPT FLAG 
WAIT FOR LKS<7>=1 
LET LKS<7>-0 
IF LKS<7> NE *0 THEN 

ERROR (LKS<7> NOT CLEARED 

ENDIF 

SET PRIORITY TO 6 

SET COUNTER TO 1 SLOW CLOCK INTERRUPT 
SET LKS<06> 
REPEAT 

DECREMENT COUNTER 
UNTIL COUNTER EQ *0 OR INTERRUPT FLAG NE *0 
IF INTERRUPT, FLAG NE <K> THEN 

ERROfi (INTERRUPT WAS AT WRONG PRIORITY) 

ENOIF 

RESTORE ORIGINAL PRIORITY 
ENDROUTINE 

ROUTINE LINE CLOCK INTERUPT 

INCREMENT INTERRUPT FLAG 
ENDROUTINE 



SEQ 007o 



011762 000004 

2873 011764 032777 010000 167146 

2874 011772 001425 

2875 011774 104401 012002 
012000 000422 



012046 

2876 012046 

2877 012046 

2878 012054 



TST12: SCOPE 

BIT 061112. aSWR : IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000* ! THEN TYPE TEST TRACE 

TYPE ,30031$ !;TYPE ASCIZ STRING 

BR 30030* jiGET OVER THE ASCIZ 

.ASCIZ <15><12>/TEST 12 - LKS INTERRUPT PRIORITY/ 



032737 
001400 



000100 000052 



30031* 
300iO* : 
1000* 



BIT 
BEQ 



«BIT06.9«52 
1* 



:UFD MODE? 

:IF NOT. 60 DO TEST 



COKDOeO KDJll DA CLUSTER DIAG. 



TEST 



LKS INTERRUPT PRIORITY 



2879 
2880 
2681 

2882 012056 

2883 012064 

2884 012070 

2885 012074 

2886 012102 
NT VECTOR TO ROUTINE 

2887 

2888 012110 
C869 012114 

2890 012122 

2891 012130 

2892 012132 

2893 012134 

2894 012140 

2895 012144 

2896 012150 
NTERRUPTS HAPPENED? 

2897 012156 001372 



042737 
005037 
005037 
013737 
012737 



012701 
052737 
032737 
001003 
104042 
005037 
106427 
004737 
022737 



2926 012270 

2927 012274 

2928 012276 

2929 012304 

2930 012306 

2931 012312 

2932 012316 

2933 012324 



005737 
001406 
012737 
104010 
005037 
106427 
042737 
013737 



000100 
002402 
002404 
000100 
027530 



077777 
000100 
000100 



172100 
000240 
030610 
000003 



YES. BRANCH 






2898 








2899 








2900 








2901 








2902 


012160 


106427 


000340 


2903 


012164 


042737 


000100 


2904 


012172 


032737 


000100 


2905 


012200 


001403 




2906 


012202 


104042 




2907 


012204 


005037 


172100 


2908 


012210 






2909 


012210 


022737 


000003 


2910 


012216 


001406 




2911 


012220 


012737 


000003 


2912 


012226 


104007 




2913 


012230 


005037 


172100 


2914 








2915 








Klb 








2917 


012234 


005037 


002404 


2918 


012240 


106427 


000300 


2919 


012244 


012701 


077777 


2920 


012250 


052737 


000100 


2921 


012256 






2922 


012256 


005737 


002404 


2923 


012262 


001002 




2924 


012264 


004737 


030610 


TINUE UITH COUNT 




2925 
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SEO 007: 



WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE 0 AFTER INTERRUPT 



177546 1$; 



002406 
000100 



177546 
177546 



002404 



2$; 
3i: 



BIC «IT06.LKS 

CLR LKSFL 

clr Ikcnt 

mov SKMOO , savloc 

mov «clkcnt.9«100 



MOV 077777. Rl 

BIS #BIT06.LKS 

BIT #BIT06.LKS 

BNE 2$ 

ERROR ^42 

clr mer 

MTPS «240 

jsr PC, delay 

ctnp 03, Ikcnt 

bne 3i 



J FROM END OF TEST 42?? PROBLEM 
! CLEAR INTERRUPT FLAG 

isave wht Mas in 100 
;MOV OLKSINT.lOO 



COIWTER FOR SLOW CLOCK 

SET INTERRUPT ENABLE BIT 

BIT SET OK? 

IF YES. BRANCH 

ERROR URITING 1 TO LKS<6> 

:SET PRIORITY TO 5 

;CMP #3. LKSFL 

;6EQ 4$ 



:POI 



:3 I 
:IF 



DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET 



177546 
177546 



002404 
001124 



4$: 
6$: 



7$: 



177546 



002404 

000006 001124 



172100 
000340 
000100 
002406 



177546 
000100 



9*: 



lot. 



Ill: 



12$; 



MTPS 


#340 


RAISE PRIORITY 


BIC 


0BIT06.LKS 


DISABLE INTERRUPTS 


BIT 


<«IT06,LKS 


LKS<6>-0? 


BEQ 


7* 


IF YES. BRANCH 


ERROR 


♦42 


ERROR URITING 0 TO LKS<6> 


clr 


mer 




CMP 


«3, Ikcnt 


DID 3 INTERRUPTS HAPPEN? 


BEQ 


9* 


IF YES. BRANCH 


MOV 


#3,$GDDAT 


,3 INTERRUPTS EXPECTED 


ERROR 


♦7 


INTERRUPTS DON'T HAPPEN 


clr 


tier 




WHETHER 


INTERRUPTS HAPPEN AT PRIORITY 6 




CLR 


Ikcnt 


CLEAR INTERRUPT FLAG 


MTPS 


«300 


RAISE PRIORITY TO 6 


MOV 


#77777, Rl 


COUNTER FOR SLOW CLOCK 


BIS 


06IT06.LKS 


SET INTERRUPT ENABLE BIT 


TST 


Ikcnt ;ANY INTERRUPTS? 


bne 


11$ ;IF YES. EXIT LOOP 


jsr 


pc, delay ;SOB Rl.lOl 



:CON 



TST Ikcnt 

BEQ 12$ 

MOV ♦6.*GD0AT 

ERROR *10 

clr mer 

MTPS #340 

BIC «eiT6.LKS 

mov a#savloc , 8#100 



ANY INTERRUPTS? 
IF NO. BRANCH 

STORE PRIORITY FOR TYPE OUT 
INTERUPTS HAPPEN AT WRONG PRIORITY 

; RESTORE PRIORITY 

; DISABLE CLOC INTERRUPTS 



H6 

COKOOeO KDJll-DA CLUSTER OIAG. 



TEST 



RESETTING LKS 



2935 
2936 
2937 
2938 
2939 
2940 
29AI 

2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 

012332 

2959 012334 

2960 012342 
2%1 012344 

012350 



000004 
032777 
001423 
104401 
000420 



012412 

2962 012412 

2963 012412 

2964 012416 

2965 012420 

2966 012426 
2967 
2968 
2969 

2970 012430 

2971 012430 

2972 012436 

2973 012442 
2974 

UP INTERRUPT VECTOR 

2975 012450 012737 

2976 012456 

2977 012464 

2978 012470 

2979 012474 

2980 012500 

2981 012504 

NTERRUPTS HAPPEhED? 

2982 012512 001372 
T LOOP, IF SO 

2983 

ERUISE. KEEP WAITING 

2984 012514 106427 

2985 012520 000005 
2986 

2987 012522 013737 



005737 
001053 
032737 
001400 



013737 
005037 
012737 



052737 
005037 
012702 
106427 
004737 
022737 
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SBTTL TEST RESETTING LKS 
RESETTING LKSC*) 

THIS TEST UILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>. 
ROUTINE TEST 

IF UFO AND LKS IS DISABLED THEN 
EXIT TEST 

ENOIF 

POINT LKS VECTOR 100 TO ERROR LKS.ILLEGAL INTERRUPT 
SYNCHRONIZE LKS BY WAITING FOfi 3 PULSES 
LET LKS<06>»#1 
EXECUTE "RESET" 
IF LKS<6> NE #0 THEN 
ERROR 

E^©IF 

IF ILLEGAL LINE.CLOCK INTERRUPT NE 0 THEN 
ERROR 

ENDIF 
ENOROUTINE 

ROUTINE ERROR LKS ILLEGAL INTERRUPT 

FLAG ILLEGAL • "^NE CLOCK INTERRUPT 

RETURN 



SEQ 007. 



010000 
012352 

001206 
000100 



COOlOO 
002404 
027530 



000340 
000100 
002402 
077777 
000240 
030610 
000003 



000340 
002406 



166576 



000052 



002406 
000100 



000102 
177546 



002404 



TST13: SCOPE 



BIT 
BEQ 
TYPE 
BR 
30033$: 
30032* : 
1000»: 

TST 
6NE 
BIT 
BEQ 



«eiT12,aSUR 
1000$ 
. 30033 ♦ 
300321 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
;6£T OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 13 - RESETTING LKS TEST/ 



*PASS ;FIRST PASS? 

TST14 ;:IF NOT FIRST PASS. EXIT TEST 
«IT06.a#52 jUFO MODE? 

II : IF NOT, BRANCH 



SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 



II: 



21: 



000100 



31: 
41: 



mov 
cir 
mov 



MOV 

BIS 

CLR 

MOV 

MTPS 

jsr 

cmp 

bne 



MTPS 
RESET 

mov 



8«100,savloc 
Ikcnt 

«clkcnt.8#100 



»340,a«102 

«eiT06.LKS 

LKSFL 

♦77777.R2 

#240 

pc. delay 
«3. Ikcnt 

21 



«340 

savloc.MlOO 



MOV 



«LKSINT.a«100 



jSET 



AT PROIRITY 7 
SET INTERRUPT ENABLE BIT 
CLEAR INTERRUPTS FLAG 
COUNTER TO WAIT FOR INTERRUPT 
LOWER PRIORITY TO 5 



CMP 
BEQ 
SOB 



«, LKSFL 
31 

R2.2I 



53 I 

:EXI 
sOTH 



RAISE PRIORITY TO 7 
EXECUTE RESET 



16 



CWOOeO KDJll DA CLU'^TER DIAG 
TEST RESETTING LKS 

000100 177546 



29M 012530 

2989 012536 

2990 012540 

2991 012542 
2992 



032737 
001403 
104011 
005037 



172100 
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^EQ 0073 



BIT 
BEQ 
ERROR 
cir 



#8IT06.LKS 

TST14 

♦11 

mer 



INTERRUPT ENABLE BIT CLEARED? 
s:IF SO. EXIT TEST 

••RESET DOESN'T aEAR LKS 



J6 
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105 



2994 

2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 

012546 

3009 012550 

3010 012556 

3011 012560 
012564 

012634 

3012 012634 

3013 012634 
3014 

3015 012642 

3016 012644 

3017 012646 

3018 012652 

3019 012660 

3020 012662 
.3021 012670 

^3022 

3023 012676 

3024 012700 

3025 012702 
3026 



000004 
032777 
001426 
104401 
000423 



001403 
104043 
005037 
032737 
001010 
042737 
022737 



001401 
104043 
005037 



010000 
012566 



172100 
000010 

000010 
000105 



172100 



166362 



032737 177000 177750 



SEQ 0074 



.SBTTL TEST - MAINTENANCE REGISTER TEST 
MAINTENANCE REGISTER TEST 

THIS TEST WILL ADDRESS MAINTENANCE REGISTER Ah© CHECK BITS 
7 4 TO BE 0010. 2 1 TO BE 10, AND READ BITS 10 08. 03. 00 
FOR FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
MULTIPROCESSOR SLAVE. UNIBUS SYSTEM. FPA AVAILABLE. W^LT/TRAP 
OPTION. AND AC POWER OKAY. 
ROUTINE TEST 

IF MAINT. REG. BITS <7 4> NE 0010 OR <2 1> NE 10 THEN 
ERROR 

ENDIF 

READ MAINT. REG. BITS < 10-08. 03, 00 > 
ENDROUTINE 

;;*t*****tf** *************************** ************************** 

TST14: SCOPE 



i ; 30035*; 
30034$: 
1000$ : 



BIT #61112. aSWR 
BEQ 1000$ 
TYPE .30035$ 
BR 30034$ 

.ASCIZ <15><12>/TEST 14 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 

MAINTENANCE REGISTER TEST/ 



177750 1$: 

177750 
177750 



2$: 



BIT 


#177000. MAIREG 


:UNUSED BITS ALL ZEROS? :MC001 
: CHANGED FRW 174000 FOR THE DA 


BEQ 


1$ 


;IF OK. BRANCH 


ERROR 


♦43 


: MAINTENANCE REGISTER ERROR 


clr 


mer 




BIT 


#6IT3. MAIREG 


:IF JUMPER IS IN 


BNE 


2$ 


* * THEN 


BIC 


OBIT 3. MAIREG 


SET HALT TO ODT 


CMP 


#105. MAIREG 


: : MAINTENANCE REGISTER SHOULD BE 



BEQ 

ERROR 

clr 



2$ 

♦43 

mer 



;: CHANGED FROM <5.2> FOR 'HE DA 
.IF SO. BRANCH 
{MAINTENANCE REGISTER ERROR 



<6 
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>EQ 0075 



3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

012706 

3057 012710 

3058 012716 

3059 012720 
012724 



3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3C70 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 



012774 
012774 
012774 
013002 
013004 



013010 
013014 
013022 
013030 
013034 
013040 
013044 
013046 
013050 
013054 
013056 
013062 
013064 
013066 



000004 
032777 
001426 
104401 
000423 



010000 
012726 



166222 



SBTTL TEST SERIAL LINE UNIT REGISTERS 
SERIAL LINE UNIT TESTC*) 

BCR<2 0> UILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG 
RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
RCSR A^tf) XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
TO 1 XCSR<02>. THE LINE CLOCK INTERRUPT SUBROUTINE WILL BE 
USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE 
PROGRAM HANGS IN THE LOOP BACK MODE. 
ROUTINE TEST 

IF UFD AND CONSOLE NOT PRESENT 
GO TO TEST 22 

ENOIF 

IF BCR<07> EQ #0 THEN 

READ BCR<2 0> TO GET BAUD RATE 

ENDIF 

LET 4=AD0RESS 0F_TIME0UT ROUTINE 
DO FOR RCSR.XCSR.RBUF.XBUP 

READ XRCSR.XCSR.RBUF.XBUF 
IF TIMEOUT FLAG NE #0 THEN 
ERf^OR 

ENDIF 

ENODO 
ENDROUTINE 

ROUTINE TIMEOUT 

LET TIMEOUT FLAG-#1 
ENDROUTINE 

TST15: SCOPE 



; ; 30037$! 
30036*: 
1000$: 



BIT 
BEQ 
TYPE 
BR 



<«ITl2.aSWR 
1000$ 
.30037$ 
30036$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
iTYPE ASCIZ STRING 
J GET OVER THE ASCIZ 



032737 


000100 


000052 




BIT 


*6IT06.a*52 


001402 








BEQ 


1$ 


000137 


016714 






JMP 


SLEND 








i TRY 


TO ACCESS 


SLU REGISTERS 


013701 


000004 




i$: 


MOV 


ERRVEC.Rl 


012737 


013050 


000004 




MOV 


«3$,ERRVEC 


012737 


000340 


000006 




MOV 


*340,ERRVEC*2 


012702 


177560 






MOV 


0RCSR.R2 


012703 


177566 






MOV 


*XBUF.R3 


012704 


000002 






MOV 


#2,R4 


005712 






2$: 


TST 


(R2) 


000405 


« 






BR 


4$ 


010237 


001126 




3$: 


MOV 


R2.$BDDAT 


104012 








ERROR 


♦ 12 


005037 


172100 






clr 


m«r 


020322 






4$: 


CMP 


R3.(R2)* 


103767 








BLO 


2$ 


012702 


176500 






MOV 


0RCSR1.R2 



.ASCIZ <15><12>/TEST 15 - SLU REGISTER ACCESS TEST/ 



:UFD MODE? 

;IF NOT, GO 00 THE TEST 

!lF TRUE, SKIP ALL SLU TESTS 



SAVE TIMEOUT VECTOR 

POINT NEW ONE TO PROGRAM AREA 

AT PRIORITY 7 

START ACCESSTNG WITH RCSR 



ACCESS SLU REGISTER 
IF NO TIMEOUT. CONTINUE 
STORE ADDRESS THAT TIMED OUT 
TIMEOUT ACCESSING SLU REGISTER 

LAST REGISTER ACCESSED? 

IF NOT, BRANCH 

GET POINTERS TO SLU 1 
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176506 
000004 



SEQ 0076 



3081 013072 012703 

3082 013076 077416 

3083 013100 010137 
3084 



MOV 
SOB 
MOV 



#XBUF1.R3 

R4.2* 

Rl.ERRVEC 



GET LAST ADDRESS ON SLU 1 
RESTORE TIMEOUT VECTOR 



M6 

COKDOeO KDJll-DA CLUSTER DIAG. 



TEST 



XCSR BIT 7 



3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 

3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
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SBTTL TEST XCSR BIT 7 

CHECK THAT XCSR<07> CAN BE 0 AND 1. 



£0 0077 



XCSR <07> 



TRANSMITTER READY 



013104 
013106 
013114 
013116 
013122 
013124 
013130 
013132 
013132 
013140 
013142 
013146 



000004 
122737 
001006 
005737 
001403 
012704 
000455 

032777 
001423 
104401 
000416 



000001 
001206 
000002 

010000 
013150 



00122C 



ROUTINE TEST 

WAIT FOR XCSR<07>»#1 NO MORE THAN 200MSEC 
IF XCSR < 07 > hE «1 THFN 
ERROR 

ENDIF 

LET XBUF=#NULL 
UAIT FOR XCSR<07>=#1 
LET XBUF=#NULL 
IF XCSR<07> NE 0 THEN 

ERROR CREADY DIDN'T GO LOU) 

ENOIF 
ENDROUTINE 

TST16: 



166000 



015204 

3115 

3116 013204 
AST CHARACTER 

3117 013210 
3118 

NTER FOR ABOUT 

3119 013210 

3120 013214 

3121 013220 

3122 013224 

3123 013226 
3124 

NOT 1. CONTINUE 
3125 013230 
3126 

3127 013234 
5128 013236 

3129 013240 

3130 013242 

3131 013246 

3132 013252 

3133 013254 

3134 013256 

3135 013260 

3136 013264 

3137 013270 

3138 013274 



004737 030610 



1002$: 



j; 30039$ 
30038$ : 



1000$ : 



SCOPE 






CMPB 


#APTENV,$ENV 


."fit IF IN. APT MODE? 


BNE 


1002$ 


NOT: 00 THIS TEST 


TST 


$PASS 


jFIRSI PASS?? 


BEQ 


1002$ 


sIF YES. DO IT 


MOV 


#2.R4 


; LOOP COUNT OF 1 


BR 


4$ 


; GO SE"^ UP POINTERS TO SLU 1 


BIT 


0BIT12,SSUR 


s IF BIT 12 IS SET IN SOFTWARE SUITCH REGISTER 


BEQ 


1000$ 


; THEN TYPE TEST TRACE 


TYPE 


.30039$ 


SjTYPE ASCIZ STRING 


BR 


30038$ 


:!GET OVER THE ASCIZ 


: 


.ASCIZ <15><12>/TEST 16 XCSR BIT 7 TEST/ 






iMOV 0100000. Rl 


jsr 


PC delay 


;1001$: SOB R1.1001$ 



200MICR0SEC . 

012702 177564 

012703 177566 

012704 000002 
105712 
100402 

WAITING 

004737 030610 

105712 
100403 
104013 

005037 172100 
012713 000000 
105712 
100003 
104013 

005037 172100 

012702 176504 

012703 176506 
012701 001000 



jMOV 



«1000.R1 



UAIT FOR L 



:ou 



1$: 



2$: 



3$: 



4$: 



MOV 

MOV 

MOV 

TSTB 

BMI 



jsr 

TSTB 

BMI 

ERROR 

clr 

MOV 

TSTB 

BPL 

ERROR 

clr 

MOV 

MOV 

MOV 



*XCSR.R2 

#XBUF,R3 

#2.R4 

(R2) 

2$ 



PC. delay 

(R2) 
3$ 

♦ 13 
mer 

#NULL.CR3) 

(R2) 

4$ 

♦ 13 
mer 

*XCSR1.R2 
#XBUF1.R3 
01000. Rl 



XCSR<7> READY 1? 

IF SO, EXIT WAIT LOOP 

SOB Rl.l$ 



XCSR<7>='1? 

IF YES. BRANCH 

XCSR<7> DOES NOT BECOME 1 

TRY TO TRANSMIT NULL CHARACTER 

XCSR<7>»0 

XMIT READY DIDN'T GO LOU 



:IF 



r ^ 

N6 
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Q 0078 

TEST - XCSR BIT 7 

3139 013500 077427 SOB R4.U : 

3140 



r 



B • 
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3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 

3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 



013302 
013304 
013312 
013314 
013320 
013322 
013326 
013330 
013336 
013340 
013344 



000004 
122737 
001006 
005737 
001403 
012703 
000555 
032777 
001431 
104401 
000426 



000001 
001206 
000002 
010000 
013346 



001220 



SBTTL TEST RCSR BIT 7 AND XCSR BIT £r 

CHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<02> WORKS PROPER f. 

RCSR <07> RECEIVER DONE 
XCSR <02> MAINTENANCE 

ROUTINE TEST 
(CHECK RCSR < 07 > AND XCSR<07>) 
WAIT FOR XCSR<07>»<H 
LET XCSR<02>»#1 (LOOP BACK MODE) 
LET XBUF*#125 

WAIT FOR RCSR<07>=*1 NO MORE THAN 200MSEC 
IF RCSR<07> NE #1 THEN 

ERROR (RCSR<07> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
WORK) 

ENDIF 

IF RBUF NE #125 THEN 
ERROR 

ENDIF 

IF RCSR < 07 > NE <K) THEN 

ERROR ( RCSR < 07 > DOES NOT GO LOU) 

ENDIF 

LET XCSR<02>»«0 
ENDROUITNE 

• • *^**t*****************m*************************i ************** 

TST17: SCOPE 



165602 1002*: 



013422 

3177 
3178 
AST CHARACTER 
3179 013422 
3180 

3181 013422 004737 030610 
3182 

3183 013426 012701 

3184 013432 012702 

3185 013436 012703 

3186 013442 004737 

3187 013446 105762 

3188 013452 100410 
NOT 1. CONTINUE UAITING 

3189 013454 004737 

3190 013460 105762 

3191 013464 100403 

3192 013466 104076 

3193 013470 005037 172100 

3194 013474 052762 000004 



;; 30041$: 
30040* : 



CMPB 
BNE 
TST 
BEQ 
MOV 
BR 
BIT 
BEQ 
TYPE 
BR 



*APTENV,*ENV 

1002* 

♦PASS 

1002* 

#2.R3 

12* 

#6IT12.SSUR 
1000* 
.30041* 
30040* 



ARE UE IN APT MODE? 
IF NOT: 00 THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP COUNT OF 1 
GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTUARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
{TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 17 RCSR BIT 7 AND XCSR BIT 2 TEST/ 

sMOV #100000. Rl 
jlOOlt: SOB Rl.lOOl* 



UAIT FOR I 



1000* : 



000013 
177560 
000002 
030610 
000004 



030610 
000004 



1*: 



000004 2*1 



jsr 

MOV 

MOV 

MOV 

jsr 

TSTB 

bmi 



jsr 

tstb 

bmi 

error 

Clr 

BIS 



PC delay 

#13. Rl 

#RCSR.R2 

#2,R3 

pc. delay 

4(R2) 

2* 

pc .delay 

4(r2) 

2* 

♦ 76 

mer 

#6IT02,4(R2) 



; COUNTER FOR ABOUT 200MICR0SEC. 



jXCSR<7> READY 1? 
sBPL 1* 



:1F 



;SET LOOP BACK MODE 



COKOOBO KOJll OA CLUSTER OIAG. MACRO V05.03 
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LL 



3195 013502 

3196 013510 

3197 013512 

3198 013516 

3199 013520 

3200 013524 
3201 
3202 
3203 

3204 013526 
IN CASE XCSR<2> 



032762 
001006 
005062 
104034 
005037 
000465 



000004 000004 

000004 

172100 
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BIT #BIT02.4(R2) 

BNE 3$ 

CLR 4(R2) 

ERROR *34 

clr mer 

BR TST20 



S€Q OOHO 



{GOT SET OK? 
{IF YES, BRANCH 
{RESET TO PRINT ERROR 
{XCSR<2> DOES NOT BECOME 



{{EXIT TEST 



: STALL FOR A UHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 



SETS READY 



3*: 



;M0V 



*60000.R1 



3205 


013526 


105712 






4$: 


TSTB 


(R2) 


:IF RECEIVER READY SE"'? 


3206 


013530 


100403 








BMI 


5$ 


;IF SET. BRANCH 


3207 


013532 


004737 


030610 






jsr 


PC. delay 


{SOB R1.4i 


ERUISE. 


STAY FOR A WHILE 








3208 


















3209 


















3210 


013536 


000402 








BR 


6$ 


{IF NOT READY, BRANCH 


3211 


013540 


005762 


000002 




5$: 


TST 


2(R2) 


{READ RBUF 


3212 










• 






3213 










: TRANSMIT XON 


AND CHECK RCSR<7> 




3214 










6$: 








3215 


013544 


012762 


000021 


000006 


MOV 


*21.6(R2) 


{TRANSMIT A CHARACTER 


3216 














{MOV «60000,R1 


NTER TO 


WAIT 














3217 


013552 


105712 






7»: 


TSTB 


(R2) 


;RCSR<7> READY 1? 


3218 


013554 


100402 








BMI 


8$ 


:IF YES. EXIT WAIT LOOP 


3219 


013556 


004737 


030610 






jsr 


pc. delay 




3220 












{SOB Rl,7» 


ERUISE . 


CONTINUE UAITING 










3221 


















3222 


013562 


105712 






8$: 


TSTB 


(R2) 


;RCSR<7>«1? 


3223 


013564 


100405 








BMI 


9$ 


{IF YES, BRANCH 


3224 


013566 


005062 


n00004 






CLR 


4(R2) 


{RESET XCSR<2> 


3225 


013572 


104014 








ERROR 


♦ 14 


{RECEIVER READY DION' T COME IP 


3226 


013574 


005037 


172100 






clr 


mer 




3227 


013600 


016237 


000002 


001126 


9$: 


MOV 


2(R2).$B0DAT 


{STORE RECEIVED DATA 


3228 


013606 


022737 


000021 


001126 




CMP 


#21.»B0DAT 


{DATA RECEIVED OK? 


3229 


013614 


001410 








BEQ 


10* 


{IF YES, BRANCH 


3230 


013616 


012737 


000021 


001124 




MOV 


#21 . JGOOAT 




3231 


013624 


005062 


000004 






CLR 


4(R2) 


{RESET TO ENABLE SLU 


3232 


013630 


104015 








ERROR 


♦15 


{URONG CHARACTER RECEIVED 


3233 


013632 


005037 


172100 






clr 


mer 




3234 


013636 


105712 






10$: 


TSTB 


(R2) 


{RCSR<7>"=0? 


3235 


013640 


100005 








BPL 


111 


J IF ZERO, BRAr«:H 


3236 


013642 


005062 


000004 






CLR 


4CR2) 


{RESET TO ENABLE SLU 


3237 


013646 


104016 








ERROR 


♦ 16 


:RCSR<07><>0 AFTER READING RBUF 


3238 


013650 


005037 


172100 






clr 


mer 




3239 


013654 


042762 


000004 


000004 


11$: 


BIC 


#BIT02.4(R2) 


{DISABLE LOOP BACK MODE 


3240 


013662 


012702 


176500 




12«: 


MOV 


#RCSR1.R2 


{POINT TO SLU 1 


3241 


013666 


012701 


000013 






MOV 


*13.R1 


{SET UP COUNTER 


3242 














{SOB R3.1$ 


3243 


013672 


005303 








dec 


r3 




3244 


013674 


005703 








tst 


r3 




3245 


013676 


001261 








bne 


1* 





{STA 
{OTH 



{COU 



{OTH 



3246 
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TEST 



RESET AND XCSR<2!0> 



SEQ 0 



3248 
3249 
3250 
3251 
3252 
"•.253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 

3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 



3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3262 
3283 
3284 
3285 



013700 
013702 
013710 
013712 
013716 
013720 
013724 
013726 
013734 
013736 
013742 

014012 
014012 
014012 
014016 
014022 



014026 
014030 
014034 
014036 
014042 
014044 
014050 
014054 



000004 
122737 
001006 
005737 
001403 
012703 
000451 
032777 
001426 
104401 
000423 



012702 
012703 
052712 



000005 
032712 
001405 
042712 
104022 
005037 
012702 
077316 



000001 
001206 
000002 
010000 
013744 



177564 
00000? 
000005 



000005 

000005 

172100 
176504 



001220 



•SBTTL TEST RESET AND XCSR<2!0> 
CHECK THAT RESET CLEARS XCSR<0!2>. 
ROUTINE TEST 
(CHECK RCSR<07> AhD XCSR<07> AND RESET) 

LET XCSR<02.00>-#1 (LOOP BACK MODE) 
EXECUTE "RESET" 
IF XCSR<02!00> NE *0 THEN 
ERROR 

ENOIF 

LET XCSR<02>-#0 

ENOROUTINE 

TST20: SCOPE 



165204 1001$; 



30043* 
30042$ : 
1000$ ; 



CMPB 
BNE 
TST 
3EQ 
MOV 
BR 
BIT 
BEQ 
TYPE 
BR 



#APTENV.$ENV 

1001$ 

$PASS 

1001$ 

*2.R3 

10$ 

«eiT12,aSUR 
1000$ 
.30043$ 
30042$ 



ARE WE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES, DO IT 
LOOP COUNT OF 1 
GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
jGET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 20 - RESET AND XCSR<0!2> TEST/ 



1$: 



MOV 
MOV 
BIS 



#XCSR.R2 
«2,R3 

#BIT02!BIT00.(R2) 



:L00P BACK MODE 



EXECUTE RESET AND VALIDATE THAT XCSR<7.2> BECOMES <1,0> 



10$; 



RESET 

BIT #BIT02!BIT00.(R2) 

BEQ 10$ 

BIC #BIT02!BIT00.(R2) 

ERROR *22 

clr mer 

MOV 0XCSR1.R2 

SOB R3.1$ 



: EXECUTE RESET 
;XCSR<2.0> CLEAR? 

: CLEAR T^C BITS SO WE CAN REPORT 
;XCSR<2.0> NOT CLEARED ON RESET 
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SEQ C 



3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3Z95 

32% 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 



3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3336 
3339 



014056 
014060 
014066 
014070 
014074 
014076 
014102 
014110 
014116 
014122 
014130 
014132 
014136 

014220 
014220 
014220 
014224 
014230 
014236 
014242 
014246 



014252 
014256 



000004 
122737 
001015 
005737 
001412 
012705 
013737 
012737 
000137 
032777 
001433 
104401 
000430 



005037 
005037 
012737 
012701 
012704 
012705 



000001 001220 

001206 

000002 

000004 003016 
015000 000004 
014642 

010000 165010 
014140 



002360 
002356 

015000 000004 
000060 
177560 
000002 



SET PRIORITY TO 
LET XCSR<02>=*1 



S8TTL TEST RESET AND IN'ERRUPT ENABLE BITS 

CHECK THAT INTERRUPTS DON T HAPPEN AT PRIORITY 4 AND THAT RESET 

CLEARS XCSR<06> AND RCSR<06>. 

RCSR <06> RECEIVER INTERRUPT ENABLE 
XCSR <06> TRANSMITTER INTERRUPT ENABLE 

ROUTINE TEST 

LET 60-#ADDRESS.0F ILLEGAL INTERRUPT XRCSR 
LET 64=#ADDRESS OF ILLEGAL INTERRUPT XRCSR 
4 ~ 

(LOOPBACK MODE) 
LET XCSR<06>=»1 (ENABLE TRANSMIT INTERRUPTS) 
LET RCSR<06>-*1 (ENABLE RECEIVE INTERRUPTS) 
UAIT FOR XCSR<07> = (»1 (READY TO TRANSMIT) 
LET XBUF=#NULL (SEND A CHARACTER) 
UAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
EXECUTE "RESET" 

IF XCSR<06> NE <K) OR RCSR<06> NE *0 Oft XRCSR NE *0 THEN 
ERROR 

ENDIF 

RESTORE PRIORITY TO NORMAL 
ENDROUTINE 

ROUTINE ILLEGAL INTERRUPT XRCSR 

INCREMENT XRCSR 
ENDROUTINE 



TST21 : SCOPE 
CMPB 
BNE 
TST 
BEQ 
MOV 
MOV 
MOV 
JMP 

1001$: BIT 
BEQ 
TYPE 
BR 

: : 30045$: 
30044$ : 
1000$: 

clr 
cir 
MOV 
MOV 
MOV 
MOV 



#APTENV,$ENV 

1001$ 

$PASS 

1001$ 

#2.R5 

cMM.SAVTIM 

#100$,9«4 

20$ 

«IT12,aSWR 
1000$ 
.30045$ 
30044$ 



ARE UE IN APT MODE? 
IF NOT: DO THIS TEST 
FIRST PASS?? 
IF YES. DO IT 
LOOP COUNT OF 1 
STORE UNEXPECTED TIMEOUT 
SET UP TIMEOUT 
GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTUARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
:TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 21 - SLU RESET AND INTERRUPT ENABLE TEST/ 



tcount 

rcount 

«100$.3«4 

*60.R1 

#fiCSR.R4 

#2,R5 



Rl POINTS TO SLU 0 INTERRUPT VECTOR 
R4 POINTS TO SLU 0 REGISTERS 
R5 IS THE LOOP COUNT 



CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 
ARE CLEARED BY RESET 



005037 002360 
005037 002356 



i 

1$; 



clr 
clr 



tcount 
rcount 



F7 
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SEQ 00^3 



3340 014262 


052764 


000100 


000004 




BIS 


«6IT06.4(R4) 


3341 014270 


032764 


000100 


000004 




BIT 


«6IT06,4CR4) 


3342 014276 


001003 








BNE 


2t 


3343 014300 


104067 








ERROR 


*67 


3344 014302 


005037 


172100 






clr 


mer 


3345 014306 


052714 


000100 




2$: 


BIS 


#eiT06,(R4) 


3346 014312 


032714 


000100 






BIT 


#BIT06,(R4) 


3347 014316 


001003 








BNE 


3$ 


3346 014320 


104067 








ERROR 


♦67 


3349 014322 


005037 


172100 






clr 


mer 


3350 014326 


000005 






31: 


RESET 




3351 014330 


032764 


000100 


000004 




BIT 


#BIT06.4(R4) 


3352 014336 


001403 








6EQ 


4$ 


3353 014340 


104022 








ERROR 


♦ 22 


3354 014342 


005037 


172100 






clr 


mer 


3355 014346 


032714 


000100 




4$: 


BIT 


«eiT06.CR4) 


3356 014352 


001403 








BEQ 


5$ 


3357 014354 


104022 








ERROR 


♦ 22 


3356 014356 


005037 


172100 






clr 


mer 



3359 
3360 
3361 

3362 014362 

3363 014362 

3364 014370 

3365 014376 

3366 014404 

3367 014410 

3368 014412 

3369 014416 

3370 014420 
3371 

3372 014424 

3373 014430 
TERRUPTS 

3374 

T HAPPENED. BRANCH 

3375 014432 104021 

3376 014434 
3377 

3378 014440 

3379 014444 

3380 014446 

3381 014452 
3382 
3383 
3384 

3385 014460 

3386 014464 

3387 014472 

3388 014476 

3389 014500 

3390 014504 

3391 014510 

3392 014512 

3393 014514 
3394 

3395 014520 

3396 014524 



;SET INTERRUPT ENABLE BIT IN XCSR 
J GOT SET OK? 
sIF YES, BRANCH 
;IN BIT 6 OF XCSR 

SET INTERRUPT ENABLE BIT IN RCSR 
GOT SET OK? 
IF YES. BRANCH 
IN BIT 6 OF RSCR 

INLINE BUS RESET 

XMIT INTERRUPT ENABLE BIT CLEARED? 
IF CLEARED, BRANCH 

INTERRUPT ENABLE NOT CLEARED ON RESET 

RECEIVE INTERRUPT ENBLE CLEARED? 
IF CLEARED, BRANCH 

INTERRUPT ENABLE NOT CLEARED ON RESET 



CHECK THAT TRANSMIT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 



012761 
012761 
052764 
012702 
000402 
162702 
106402 
004737 

005737 
001403 



005037 

022702 
001362 
106427 
042764 



012711 
012761 
105764 
100410 
004737 
105764 
100403 
104076 
005037 

052714 
012764 



015036 000004 

000340 000006 

000100 000004 
000340 

000040 

030610 

002360 



172100 
000200 
000340 

000100 000004 



015060 

000340 000002 
000004 

030610 
000004 



172100 
000100 

000000 000006 



5$: 



6$: 
7$: 



9* J 
10$: 



MOV *200$,4(R1) 

MOV #340.6(R1) 

BIS *BIT06.4(R4) 

MOV #340. R2 

BR 7* 

SUB *40.R2 

MTPS R2 

JSR PC. DELAY 

tst tcount 

beq 10$ 



ERROR .21 

clr mer 

CMP #200. R2 

BNE 6$ 

MTPS #340 

BIC «eiTQ6.4(R4) 



POINT XMIT VECTOR TO PROGRAM AREA 
AT PRIORITY 7 

SET INTERRUPT ENABLE BIT IN XCSR 

SET PRIORITY TO 7 

GO WAIT IN CASE OF INTERRUPTS 

LOWER PRIORITY LEVEL 

SET PRIORITY 

TIMER ROUTINE ;MC 

MOV #41, R3 :TIME DELAY 

:8$: SOB R3.8$ ;UAIT FOR IN 

;6R 10$ :IF INTERRUPTS DIDN' 

; INTERRUPTS HAPPEN AT WRONG PRIORITY 



CMP (SP)*,(SP)* 

AT PRIORITY 4? 

IF NOT LAST ONE. CONTINUE 

RESTORE PRIORITY 7 

CLEAR INTERRUPT ENABLE BIT 



! CLEAN UP THE STACK 



CHECK THAT RECEIVE INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 



11$; 



MOV 

MOV 

TSTB 

bmi 

jsr 

tstb 

bn! 

error 

clr 

BIS 
MOV 



#202$ 



(Rl) 



#340.,?(R1) 
4(R4) 
11$ 
pc.de 
4(r4) 

m 

♦ 76 
mer 

#BIT06.(R4) 
#NULL.6(R4) 



POINT RECEIVE VECTOR TO PROGRAM AREA 
AT PRIORITY 7 
TRANSMITTER READY 

BPL 11$ ! IF NOT. WAIT 



sSET INTERRUPT ENABLE BIT IN RCSR 
;TRY TO TRANSMIT NULL 



G7 



COKDOBO KOJll-OA CLUSTER OIAG. MACRO V0S.03 
TEST RESET AND INTERRUPT ENABLE BITS 



3397 014532 012702 

3398 014536 000402 

3399 014540 162702 

3400 014544 052764 

3401 014552 106402 

3402 014554 004737 

3403 014560 005737 

3404 014564 001406 
TERRUPTS 

3405 

T HAPPENED, BRANCH 

3406 014566 

3407 014574 

3408 014576 
3409 

3410 014602 

3411 014606 
3412 
3413 
3414 

3415 014610 

3416 014614 
3417 

3418 014620 

3419 014622 

3420 014624 
THE LOOP 

3421 

3422 014630 

3423 014634 

3424 014642 

3425 014646 

3426 014652 

3427 014654 

3428 014656 

3429 014662 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 

3438 014662 
3439 

3440 014666 

3441 014672 

3442 014674 

3443 014702 

3444 014704 
3445 

3446 014706 
3447 
3446 

3449 014714 012703 

3450 014720 004737 

3451 014724 113700 
3452 

3453 014730 112300 



000340 
000040 

000004 000004 

030610 
002356 



12$: 
13$: 
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MOV *340,R2 

BR 13$ 

SUB #40, R2 

BIS *BIT02,4(R4) 

MTPS R2 

JSR PC, DELAY 

tst rcount 

beq 16$ 



042764 


000004 


000004 


15$: 


BIC 


*BIT02.4(R4) 


104021 








ERROR 


♦21 


005037 


172100 






clr 


mer 


022702 


000200 




16$: 


CMP 


#200, R2 


001354 








BNE 


12$ 








1 CLEAN 


UP BEFORE NEXT TEST 


106427 


000340 






MTPS 


#340 


042714 


000100 






BIC 


«BIT06,(R4) 


105714 






17$: 


TSTB 


(R4) 


100402 








BMI 


18$ 


004737 


030610 






jsr 


pc, delay 


005764 


000002 




18$: 


TST 


2(R4) 


042764 


000004 


000004 




BIC 


#eiT02.4(R4) 


012701 


000300 




20$: 


MOV 


#300. Rl 


012704 


176500 






MOV 


«RCSR1.R4 


005305 








DEC 


R5 


001402 








BEQ 


19$ 


000137 


014252 






JMP 


1$ 



012702 000002 
000001 

000001 002362 



032702 
001005 
022737 
001031 
000403 



052737 000004 176504 



003004 
030610 
176502 



19$: 



; loop back connector test 



mov #2.r2 

110$: bit #l.r2 

bne 112$ 

cmp #1 , lopbak 

bne 120$ 

br 114$ 

112$: bis #bit02.xcsrl 



114$: mov #tchar.r3 

jsr pc , delay 

movb S#rfouf 1 , rO 

116$: movb (r3)^.rO 



30-2 



SEQ 0064 



SET PRIORITY TO 7 

GO WAIT IN CASE OF INTERRUPTS 

LOUER PRIORITY LEVEL 

SET LOOP BACK MODE 

SET PRIORITY 

TIMER ROUTINE jMC 

MOV #140, R3 ;TIME DELAY 

14$: SOB R3.14$ jUAIT FOR IN 

;BR 16$ sIF INTERRUPTS DION' 

! CLEAR LOOP BACK MODE 

.•INTERRUPTS HAPPEN AT WRONG PRIORITY 

CMP (SP)*.(SP)» ;CLEAN UP THE STACK 

AT PRIORITY 4? 

IF NOT LAST ONE. CONTINUE 



RESTORE PRIORITY 7 

CLEAR INTERRUPT ENABLE BIT 

MOV #400, R2 ; STALL DELAY 

RECEIVE READY? 

STOP WAITING. IF SO 

SOB R2,17$ : OTHERWISE, STAY IN 



READ CHARACTER TRANSMITTED 
CLEAR LOOP BACK MODE 
POINT TO SLU #1 VECTOR 
POINT TO SLU #1 REGISTFS 



5 counter 

: odd or even ?? 
:nope even 

:yep odd. connector installed ??? 
;no it's not 



;set the maintenance bit in th« 
:csr to do the internal loop back 

:poInter of .byte : -1. 21. -1, 0 
sallow last character from terminal 
:suck any extra character 

sput the first character in rO 



H7 
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3454 014732 001415 

3455 014734 110037 

3456 014740 004737 

3457 014744 105737 

3458 014750 100401 

3459 014752 104077 
3460 

3461 014754 123737 

3462 014762 001762 

3463 014764 104100 
3464 

3465 014766 

3466 014766 077241 
3467 

3468 014770 

3469 014770 013737 

3470 014776 000440 
i471 

3472 
3473 
3474 
3475 

3476 015000 106427 

3477 015004 042714 
3478 

3479 015010 105714 

3480 015012 100403 

3481 015014 004737 
THE LOOP 

3482 015020 105714 

3483 015022 005764 

3484 015026 042764 

3485 015034 000000 
3406 

3487 
3488 
3489 
3490 
3491 

3492 015036 005737 

3493 015042 001003 

3494 015044 042764 

3495 015052 005237 
34% 015056 000002 
3497 

3498 015060 005737 

3499 015064 001002 

3500 015066 042714 

3501 015072 005237 

3502 015076 000002 
3503 

3504 
3505 



176506 
030610 
176500 



176502 176506 118$: 



003016 000004 



120$: 
500$: 



beq 120$ 

movb rO.xbufl 

jsr PC, delay 

tstb acrcsrl 

bmi 118$ 

error ^77 

cmpb S$rbufl.9#xbufl 

beq 116$ 

error ♦lOO 



sob r2, 110$ 



MOV SAVTIM.aW 
8R TST22 



DEBUG PURPOSES 



000340 
000100 



030610 



000002 

000004 000004 



100$: 
170$: 

180$: 



MTPS 
BIC 

TSTB 

BMI 

jsr 

tstb 

TST 
QIC 
HALT 



«340 

«)IT06,(R4) 

(R4) 
180$ 

pc, delay 

Cr4) 
2(R4) 

«BIT02.4(R4} 



INTEfVRlJPT SERVICE ROUTINES 



002360 

000100 000004 
002360 



002356 

000100 
002356 



200$: 
61$: 
202$: 
81$: 



tst 
bne 

bic 
inc 
RTI 

tst 
bne 

b!c 
Inc 
RTI 



TCOUNT 
61$ 

#bit6,4(r4) 
tcount 



RCOUNT 
81$ 

«bit6,(r4) 
rcount 
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SEQ 006'. 



idone with this pass of th's test 
: transmit 
:alloM some time 
; receiver ready ?? 

sno character rece'ved 



: wrong character received 



; RESTORE UNEXPECTED TIMEOUT 
;sGO TO THE NEXT TEST 



RESTORE PRIORITY 7 

CLEAR INTERRUPT ENABLE BIT 

MOV #400, R2 

RECEIVE READY? 

STOP UAITING. IF SO 

SOB R2,170$ 



;READ CHARACTER TRANSMITTED 
; CLEAR LOOP BACK MODE 



: INCREMENT TRANS. COUNTER ;MC 



! RETURN FROM XMIT INTERRUPT jMC 
s INCREMENT RECEIVER COUNTER :MC 



: STALL DELAY 

s OTHERWISE. STAY IN 



s RETURN FROM RECEIVER INTERRUP 



r 



1"7 
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SEQ DOS' 



3507 

3506 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 



015100 
015102 
015110 
015112 
015116 
015120 
015124 
015130 
015136 
015140 
015144 



015216 
3548 015216 
3549 
AST CHARACTER 
3550 015222 
3551 
3552 
3553 
3554 
3555 

3556 015222 

3557 015222 

3558 015226 

3559 015232 



SBTTL TEST INTERRUPT PRIORITY FOR SLU 

CHECK THAT INTERRUPTS HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR 

RCSR<06> AND XCSR<06>. 

ROUTINE TEST 

LET 60'OAODRESS OF LEGAL RINTERRUPT 
LET 64«0ADDRESS OF l EGAL XINTERRUPT 
LET XCSR<02>=«*1' 
SET PRIORITY TO »3 
WAIT FOR XINTERRUPT ■»« 
IF XCSR<07> EQ #1 THEN 
ERROR 

ENDIF 

WAIT FOR RINTERRUPT»*3 
IF RCSR<07> EQ #0 THEN 
ERROR 

ENDIF 

LET XCSR<02>-#0 
SET PRIORITY TO NORMAL 
ENDROUTINE 

ROUTINE LEGAL XINTERRUPT 

LET XBiJF»#CHARACTER 

INCREMENT XINTERRUPT 
ENDROUTINE 

ROUTINE LEGAL RINTERRUPT 
READ RCSR 

INCREMENT RINTERRUPT 
ENDROUTINE 



000004 

122737 000001 001220 
001007 

005737 001206 
001404 

012705 000002 
000137 015454 
032777 010000 164002 
001431 

104401 015146 
000424 



004737 030610 



;;****♦ 

TST22 



********************************************************** 

SCOPE 



1002$ : 



; 5 30047 
30046$ : 



1000»: 



CMPB 
BNE 
TST 
BEQ 
MOV 
JMP 
BIT 
BEQ 
TYPE 
BR 
$: 

jsr 



#APTENV,JENV 

1002$ 

$PASS 

1002$ 

#2.R5 

20$ 

*eiT12.aSUR 
1000$ 
. 30047$ 
30046$ 



iARE UE IN APT MODE? 
jIF NOT: 00 THIS TEST 
iFIRST PASS?? 
I IF YES. DO IT 
LOOP COUNT OF 1 
GO SET UP POINTERS TO SLU 1 
IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
; THEN TYPE TEST TRACE 
5 ; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 22 SLU INTERRUPT PRIORITY TEST/ 



pc, delay 



:1001$: 



5 MOV 
SOB 



«100000.R1 
R1.1001$ 



; WAIT FOR L 



GET READY FOR INTERRUPTS 



012701 000060 

012704 177560 

012705 000002 



100$: 



MOV 
MOV 
MOV 



060. Rl 
«RCSR,R4 
02. R5 



r 



J 
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5560 








3561 


015236 






3562 


015236 


011146 




3563 


015240 


016146 


000004 


3564 


015244 


012711 


015634 


3565 


015250 


012761 


015612 


3566 


015256 


012761 


000340 


3567 


015264 


012761 


000340 


356a 


015272 


052764 


000004 


3569 


015300 


012701 


000140 


3570 


015304 


105714 




5571 


015506 


100401 




5572 


015310 


077103 




3573 


015312 


005764 


000002 


3574 








3575 








3576 








3577 


015316 


012702 


000200 


3578 








3579 


015322 


162702 


000040 


3580 


015326 


005037 


002360 


3581 


015332 


005037 


002356 


3582 








3583 








3584 








3585 








3586 


015336 


106402 




3587 


015340 


052764 


000100 


3588 


015346 


004737 


030610 


3589 


015352 


042764 


000100 


3590 


015360 


022737 


000001 


3591 


015366 


101041 




3592 


015370 


103452 




3593 








3594 








3595 








3596 








3597 








3598 015372 


052714 


000100 


3599 015376 


012764 


000000 


3600 015404 


004737 


030610 


3601 


015410 


042714 


000100 


3602 


015414 


022737 


000001 


3603 


015422 


101047 




3604 


015424 


103460 




3605 








3606 








3607 








3608 








3609 015426 


005764 


000002 


3610 


015432 


005702 




3611 


015434 


001332 




3612 


015436 


106427 


000340 


3613 


015442 


005064 


000004 


3614 


015446 


012661 


000004 


3615 


01545? 


012611 




3616 015454 


012704 


176500 



10$: 



000004 
000002 
000006 
000004 



1$: 
21; 



MOV (Rl). (SP) 

r«V 4CR1). (SP) 

MOV #8$,(R1) 

MOV #6».4(R1) 

MOV «40.2(R1) 

MOV #340.6(R1) 

BIS *BIT02.4(R4) 

MOV «140,R1 

TSTB (R4) 

BMI 2* 

SOB Rl.l$ 

TST 2(R4) 



SET PRIORITIES AND XMIT INTERRUPTS 



3$i 



MOV 

SUB 
CLR 
CLR 



«200,R2 

#40. R2 
TCOUNT 
RCOUNT 



000004 

000004 
002360 



TRANSMITTER INTERRUPT HERE 



4$: MTPS R2 

BIS 0BIT06.4(R4) 

JSR PC, DELAY 

SIC *BIT06.4(R4) 

CMP #1 . TCOUNT 

BHI 5t 

BLO 200J 



RECEIVER INTERRUPT HERE 



000006 
002356 



BIS 
MOV 
JSR 
BIG 
CMP 
BHI 
BLO 



*6IT06.(R4) 
<>NULL.6(R4) 
PC. DELAY 
«6IT06.(R4) 
#1, RCOUNT 
7$ 

201$ 



IF DONE GET OUT. IF NOT LOOP 



9*: 



20$: 



TST 

TST 

BNE 

MTPS 

CLR 

MOV 

MOV 

MOV 



2(R4) 

R2 

3» 

«340 

4(R4) 

(SP)».4(R1) 

(SP)*,(R1) 

«RCSR1,R4 



SEQ 009' 



SAVE PREVIOUS VECTOP .MC 

STORE RECEIVER VECTOR 
STORE TRANSMITTER VECTOR 
AT PRIORITY 7 

FOR RECEIVER AND TRANSMITTER 

SET LOOP BACK MODE 

DELAY FOR UNEXPECTED CHARACTERS 

RECEIVER READY? 

IF YES. BRANCH 

OTHERWISE, WAIT JUST IN CASE 

READ RECEIVER 



; START UITH PRIORITY 3 

i LOWER PRIORITY 

: CLEAR TRANSMITTER COUNTER :MC 

J CLEAR RECEIVER COUNTER ;MC 



TRY TO DO AT LOWER PRIORITY 
LOOP BACK £ INTERRUPT ENABLE 
WAIT DELAY FOR INTERRUPT jMC 
CLEAR INTERRUPT ENABLE 
ANY INTERRUPT HAPPENED ? :MC 
NO XMIT INTERRUPT ;MC 
TOO MANY XMIT INTERRUPTS ;MC 



SET RECEIVE INTERRUPT 
TRANSMIT NULL 

WAIT DELAY FOR INTERRUPT ;MC 
CLEAR INTERRUPT ENABLE 
ONE INTERRUPT HAPPENED ? jMC 
NO RECEIVER INTERRUPTS jMC 
2 MANY RECEIVER INTERRUPTS ;MC 



;READ RECEIVER BUFFER 
.•PRIORITY 0 
sIF NOT YET. CONTINUE 
; RAISE PRIORITY TO 7 
; CLEAR XCSR 

;GET PREVIOUS VECTOR BACK 
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TEST INTERRUPT PRIORITY FOR SLU 



SEO 0066 



5617 

3610 

5619 

5620 

3621 

5622 

5623 

3624 

3625 

3626 

3627 

5628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3646 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

5668 

3669 

3670 



015460 
015464 
015466 
015470 



015472 
015476 
015500 
015506 
015510 
015514 

015516 
015522 
015524 
015532 
015534 
015540 

015542 
015546 
015550 
015556 
015560 
015564 

015566 
015572 
015574 
015602 
015604 
015610 



015612 
015616 
015620 
015626 
015632 

015634 
015640 
015642 
015646 
015652 



012701 
005305 
001263 
000471 



012661 
012611 
042764 
104070 
005037 
000457 

012661 
012611 
042764 
104074 
005037 
000445 

012661 
012611 
042764 
104071 
005057 
000433 

012661 
012611 
042764 
104075 
005037 
000421 



005737 
001003 
042764 
005237 
000002 

005737 
001002 
042714 
005237 
000002 



000300 



000004 
000104 
172100 

000004 
000104 
172100 

000004 
000104 
172100 

000004 
000104 
172100 



002360 

000100 
002360 



002356 

000100 
002356 



MOV #300, Rl 

DEC R5 

BNE 10« 

BR TST23 



::IF ERROR, EXIT TEST 



ERROR ROUTINES 



51; 



000004 



200$; 



000004 



7$; 



000004 



201$: 



000004 



MOV 


(SP)* ,4(R1) 




GET PREVIOUS VECTOR BACK 


MOV 


(SP)».(R1) 




k% ti If f If ( 


BIG 


#6IT02!BIT06,4(R4) 




CLEAR LOOP BACK BIT 


tRHOH 


♦ 70 




NO XMJT INTERRUPTS 


<M 1 K 

clr 


mer 






DO 




tXIT 


1 tST 


Mm/ 
HUV 


Q SP J* ,4lRl J 




GET PHtVIOUS VECTOR BACK 








M If If tt M tf 


BIG 


#eiT02!BIT06,4(R4) 




CLEAR LOOP BACK MODE BIT 


ERROR 


.74 




2 MANY XMIT INTERRRUPTS :MC 


clr 


mer 






BR 


TST23 sjIF ERROR. 


EXIT 


TEST 


MOV 


(SP)».4(R1) 




.GET PREVIOUS VECTOR BA:k 


MOV 


CSP).,(R1) 




fi f II II 1/ f 


BIC 


#BIT02!BIT06,4(R4) 




CI EAP LOOP BACK MODE BIT 


ERROR 


.71 




NO RECEIVE INTERRUPTS 


clr 








BR 


TST23 j;IF ERROR, 


£XIT 


TEST 


MOV 


(SP).,4(R1) 




GET PREVIOUS VECTOR BACK 


MOV 


(SP)..(R1) 




If I tt t 1 t tt 


BIG 


«BIT02:BIT06.4(R4) 




.CLEAR LOOP BACK MODE BIT 


ERROR 


.75 




2 MANY RECEIVER INTERRUPTS 


clr 


mer 






BR 


TST23 5 5 IF ERROR, 


EXIT 


TEST 



INTERRUPT SERVICE ROUTINES 



000004 



6$: 

61$: 

8$: 



tst 
bne 

bic 
*nc 
RTI 

tst 
bne 

bic 
inc 
RTI 



TCQUNT 
61$ 

«>it6.4(r4) 
tcount 



RCOUNT 
81$ 

«>it6,(r4) 
rcount 



; INCREMENT TRANS. COUNTER :MC 

! RETURN FROM XMIT INTERRUPT :MC 
! INCREMENT RECEIVER COUNTER jMC 

s RETURN FROM RECEIVER INTERRUP 



r 



L7 
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SEQ 0069 



3672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5600 

56«1 

5682 

5685 

5684 

5685 
5686 
5687 
5688 
3689 
5690 
5691 
5692 
5695 
5694 
5695 
5696 
3697 
3698 
3699 
5700 
5701 
5702 
5705 
5704 
5705 
5706 
5707 
5708 
5709 

015654 

5710 015656 

5711 015664 

5712 015666 
015672 



5715 
5714 
3715 
5716 
5717 
3718 
5719 
3720 
5721 
3722 
3725 
5724 



015742 
015742 



015742 
015750 
015756 
015764 
015766 
015770 



.SBTTL TEST BREAK CONDITION 

SLU #1 IS TESTED SINCE SLU *0 IS BEING USED AS THE CONSOLE 
CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 



RCSR 



<15> 
<13> 
<11> 



XCSR <00> 



ERROR 

FRAMING ERROR 
RECEIVED BREAK 

TRANSMIT BREAK 



000004 

052777 010000 163254 
001426 

104401 015674 
000423 



ROUTINE TEST 

LET XCSR<02>«*1 
LET XCSR<00>-01 
WAIT FOR RCSR<07>=#1 
IF RBUF<15.'13!11> NE #1 THEN 

ERROR (ERROR. FRAMING ERROR, RECEIVE BREAK NE 1) 

ENOIF 

LET XCSR<00>»<K) 
IF XCSR < 00 > HE <K) THEN 

ERROR (XCSR<00> ODES NOT GO LOU) 

ENOIF 

UAIT FOR XCSR<07>»01 

LET XBUF-*NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED) 
UAIT FOR RCSR<07>«<H 
IF RBUF<15!13!11> NE 00 THEN 
ERROR 

ENDIF 

LET XCSR<00>-#1 
EXECUTE "RESET" 
IF XCSR<00> NE 00 THEN 
ERROR 

ENDIF 

LET XCSR<02>««) 
ENOROUTINE 

; ; ««*««4i4i»««4i** 

TST23: SCOPE 



BIT 
6EQ 
TYPE 
BR 

; : 30049$: 
30048$: 
1000$ : 



«eiT12,SSUR 
1000$ 
.30049$ 
30048$ 



IF BIT 12 IS SET IN SOFTUARE SUITCH REGISTER 

THEN TYPE TEST TRACE 
iTYPE ASCIZ STRING 
GET OVER THE ASCIZ 



ASCIZ <15><12>/tEST 23 - SLU BREAK CONDITION TEST/ 



052737 000004 176504 

052737 000001 176504 

032757 000001 176504 
001005 
104027 

005037 172100 



SEND BREAK AND CHECK ERROR BITS IN RBUF 



1$: BIS «BIT02,XCSR1 

BIS #eiTOO.XCSRl 

BIT fleiTOO.XCSRl 

BNE 2( 

ERROR ^27 

clr mcr 



TRANSMIT IN LOOP BACK 
SET SEND BREAK BIT 
GOT SET OK? 
IF YES. BRANCH 
WRITING 1 TO XCSR<0> 



M7 
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TEST 



BREAK CONDITION 



3725 015774 

3726 016000 

3727 016004 

3728 016006 

3729 016010 

3730 016014 

3731 016022 

: ANOTHER DELAY 

3732 
iUAIT A UHILE 

3733 016026 

3734 016032 
NOT. UAIT 

3735 016034 

3736 016040 

3737 016044 

3738 016046 

3739 016050 
3740 

3''41 016054 

3742 016062 

3743 016070 

3744 016072 

3745 016100 

3746 016102 

3747 016106 

3748 016110 

3749 016116 

3750 016124 

3751 016126 

3752 016134 

3753 016136 

3754 016142 
3755 

3756 
3757 

3758 016144 

3759 016144 

3760 016150 
NOT, UAIT 

3761 016152 

3762 016156 

3763 016162 

3764 016164 

3765 016166 
3766 

3767 016172 

3768 016200 

3769 016204 
NOT. UAIT 

3770 016206 

3771 016212 

3772 016216 

3773 016220 

3774 016222 
3775 

3776 016226 

3777 016234 

3778 016242 

3779 016244 

3780 016252 

3781 016254 



012701 
105737 
100401 
077104 
005737 
052737 
004737 
TO GET 



105737 
100410 

004737 
105737 
100403 
104076 
005037 

013737 
022737 
001407 
042737 
104025 
005037 
000467 
042737 
032737 
001407 
042737 
104027 
005037 
000451 



000100 
176500 



176502 
000001 
030610 
BREAK 



176500 



030610 
176500 



172100 

176502 
124000 

000004 

172100 

000001 
000001 

000004 

172100 



176504 



21: 
4$: 



5*i 



001126 
001126 

176504 



176504 
176504 

176504 



7$; 



8$; 



MOV #100. Rl 

TSTB RCSRl 

BMI 5$ 

SOB R1.4J 

TST RBUFl 

BIS (WITOO.XCSRI 

jsr PC delay 



TSTB RCSRl 

bm" 7$ 

jsr pc, delay 

tstb rcsrl 

bffli 7$ 

error +76 

clr mer 

MOV RBUFl , $BDDAT 

CMP «IT15!BIT13!BIT11,$B0DAT 

6EQ 8$ 

BIC «IT02.XCSR1 

ERROR ^25 

clr mer 

BR TST24 ; ;EXIT 

BIC #eiTOO.XCSRl 

BIT #eiTOO.XCSRl 

BEQ 9» 

BIC «BIT02.XCSR1 

ERROR *27 

clr mer 

BR TST24 ssEXIT 
CHECK THAT BREAK CONDITION IS CLEARED 









9$:; 


MOV 


SAVBR.BCSR 


105737 


176504 






TSTB 


XCSRl 


100410 








bm'i 


10$ 


004737 


030610 






jsr 


pc. delay 


105737 


176504 






tstb 


xcsrl 


100403 








b«ni 


10$ 


104076 








error 


♦ 76 


005037 


172100 






clr 


mer 


012737 


000177 


176506 


10$: 


MOV 


#177.XBUF1 


105737 


176500 






TSTB 


RCSRl 


100410 








bmi 


11$ 


004737 


030610 






jsr 


pc, delay 


105737 


176500 






tstb 


rcsrl 


100403 








bmi 


11$ 


104076 








error 


♦ 76 


005037 


172100 






clr 


mer 


013737 


176502 


001126 


11$: 


MOV 


RBUFl. $BDDAT 


032737 


124000 


001126 




BIT 


«IT15 : BIT13 ! BITll . $B0DAT 


001406 








BEQ 


12$ 


042737 


'.00004 


176504 




BIC 


«IT02, XCSRl 


104025 








ERROR 


♦25 


005037 


172100 






clr 


mer 



SEQ 0090 



STALL DELAY 
RECEIVER READY? 
IF YES. BRANCH 

UAIT JUST IN CASE OF A CHARACTER 
READ A CHARACTER 
TRANSMIT BREAK 

: MOV #1000. Rl 



;6$: 



SOB 



R1.6$ 



! RECEIVER READY? 
;BPL 7$ 



.Ir 



STORE WHATEVER RECEIVED 

ALL ERROR BITS SET? 

IF YES, BRANCH 

RESET TO ENABLE SLU 

BREAK DOES NOT CAUSE ERRORS 



CLEAR TRANSMIT BREAK 

GOT CLEARED OK? 

IF YES, BRANCH 

RESET TO ENABLE SLU 

ERROR WRITING 0 TO XCSR<0> 



RESTORE BCSR 
XMIT READY? 
BPL 10$ 



,IF 



TRY TO TRANSM 
RECEIVE^^ READY 
BPL 11$ 



DELETE 



,IF 



STORE RECEIVE BUFFER 

ERRORS CLEARED? 

IF YES, BRANCH 

RESET TO ENABLE SLU 

BREAK NOT CLEARED ON NEXT CHARACTER 
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0091 

TEST BREAK CONDITION 

3752 016260 042737 000004 176504 12$: 8IC «IT02.XCSR1 jCLEAR LOOP BACK MODE 

3783 

3784 



Br 

COKOOeO KOJll OA CLUSTER 01 AG. 

TES' OVERRUN CONDITION 

378' 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 



016266 

3817 016270 

3818 016276 
3619 016300 

016304 



000004 
032777 
001432 
104401 
000424 



016356 

3820 016356 

3821 016362 

3822 016364 

3823 016372 

J READY TO TRANSMIT? 

3824 016376 100410 
NOT. WAIT 

3825 016400 

3826 016404 

3827 016410 

3828 016412 

3829 016414 

3830 016420 

3831 016426 
; RECEIVE READY? 

3832 016432 100410 
NOT. WAIT 

3833 016434 

3834 016440 

3835 016444 

3836 016446 

3837 016450 
3838 



012701 
077101 
052737 
105737 



004737 
105737 
100403 
104076 
005037 
012737 
105737 



004737 
105737 
100403 
104076 
005037 
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.SBTTL TEST OVERR'J'4 CONDITION 
CHECK OVERRUN CONOITION 

RCSR <14> OVERRUN ERROR 

SLU «1 IS TESTED SINCE SLU «0 IS BEING USED AS THE CONSOLE 

ROUTINE TEST 

LET XCSR<02>-»' (LOOPBACK MODE) 
WAIT FOR XCSR<07>«#1 
LET yOUF.*252 
UAI"' FOR XCSR<07>»*1 

LF, XBUF=«125 (SEND THE 2N0 U/0 READING THE 1ST CHARACTER) 
UAIT FOR RCSR<07>»*1 

STALL FOR LOWEST BAUD RATE TO GET 2N0 CHARACTER 
IF LOU BYTE OF RBUF NE #125 THEN 

ERROR (1ST CHARACTER WASN'T OVERRUN) 

ENOIF 

IF RBUF<15!14> NE *1 THEN 

ERROR (NO OVERRUN BIT SET) 

ENOIF 

WAIT FOR XCSR<07>»#1 
LET XBUF»#NULL 
UAIT FOR RCSR<07>''01 
IF RBUF<15!14> NE «) THEM 

ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 

ENDIF 

LET XCSR<02>-#0 
ENDROUTINE 



SEQ or/". 



010000 162642 
016306 



f *************************************************************** 

TST24 : SCOPE 



BIT 
BEQ 
TYPE 
BR 

! :30051*: 
30050$: 



«6IT12.9SUR 
100$ 
,30051$ 
30050$ 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
sTYPE ASCIZ STRING 
}GET OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 24 SLU OVERRUN CONDITION TEST/ 



100000 

000004 
176504 


176504 


1001$: 
100$: 


MOV 
SOB 
BIS 
tstb 


*100000.R1 
Rl,1001$ 
#BIT02.XCSR1 
xcsrl 


: UAIT FOR LAST CHARACTER 

J SET LOOP BACK MODE 
5l$: TSTB XCSRl 










bmi 


1$ 


sBPL 1$ 




030610 
176504 

172100 
000021 
176500 


176506 


1$: 


jsr 

tstb 

bffli 

error 

clr 

MOV 

tstb 


PC, delay 

xcsrl 

1$ 

♦76 

mer 

♦21.XBUF1 
rcsrl 


J TRANSMIT A CHARACTER 
;2$: TSTB RCSRl 










bmi 


2$ 


;BPL 2$ 


.If 


030610 
176500 

172100 






jsr 

tstb 

bmi 

error 

clr 


pc. delay 

rcsrl 

2$ 

♦76 

mer 







C8 



C0K0O60 KDJll-DA CLUSTER DIAG. 
TEST OVERRUN CONDITION 



HACRO V05.03 Uednesday 09 Apr 86 09.-43 Page 33-1 



SEQ 0093 



5839 016454 

3840 016454 105737 
s READY TO TRANSMIT? 

3841 016460 100410 
NOT. UAIT 

3842 016462 

3843 016466 

3844 016472 

3845 016474 

3846 016476 

3847 016502 

3848 016502 
3849 

LL FOR THE 2ND CHARACTER 



004737 
105737 
100403 
104076 
005037 



176504 



030610 
176504 



172100 



2$; 



012737 000177 176506 



3*: 



tstb 

bffli 

jsr 

tstb 

bffli 

error 

clr 

MOV 



xcsrl 
3$ 

pc, delay 

xcsrl 

3$ 

♦ 76 

mer 

n77.XBUFl 



.3»: 
jBPL 



TSTB 
3» 



XCSRl 



: TRANSMIT THE 2N0 CHARACTER 
;MOV #1 75000, R3 



;STA 



3850 016510 


004737 


030610 




jsr 


pc, delay 


4$: SOB R3.4» 


:UAIT A UHILE 










3851 016514 


013737 


176502 


001126 


MOV 


RBUFl , $BODAT 


STORE RECEIVED DATA 


3852 016522 


012737 


140177 


001124 


MOV 


#140177. $GDDAT 


EXPETED PATTERN 


3853 016530 


122737 


000177 


001126 


CMP8 


#177.$BDDAT 


2ND CHARACTER RECEIVED? 


3854 016536 


001406 






6EQ 


5$ 


IF YES. BRANCH 


3855 016540 


042737 


000004 


176504 


BIC 


<WIT02. XCSRl 


RESET TO ENABLE SLU 


3856 016546 


104031 






ERROR 


♦ 31 


2N0 CHARACTER DIDN'T OVERRUN 1ST 


3857 016550 


005037 


172100 




clr 


mer 




3858 016554 


122737 


000300 


001127 5$: 


CMPB 


«IT7!BIT6.*BDDAT^1 


OVERRUN ERROR BITS SET? 


3859 016562 


001406 






6EQ 


6$ 


.IF YES. BRANCH 


3860 016564 


005037 


176504 




CLR 


XCSRl 


[RESET TO ENABLE SLU 


3861 016570 


104032 






ERROR 


♦ 32 


OVERRUN DOES NOT SET ERRORS BITS 


3862 016572 


005037 


172100 




clr 


mer 




3863 016576 


000450 






BR 


TST25 ! :EXIT 





100410 



105737 
100403 
104076 
005037 



012737 
105737 



3864 
3865 
3866 

3867 016600 
3866 016600 
NSMITTER READY? 

3869 016604 
NOT, BRANCH AND UAIT 

3870 016606 004737 

3871 016612 

3872 016616 

3873 016620 

3874 016622 

3875 016626 
3876 

3877 016626 

3878 016634 
{RECEIVER READY? 

3879 016640 100410 
NOT. BRANCH AND UAIT 

3880 016642 004737 

3881 016646 105737 

3882 016652 100403 

3883 016654 104076 

3884 016656 005037 
3885 

3886 016662 

3887 016670 

3888 016672 

3889 016700 

3890 016702 

3891 016706 
3892 

3893 016714 

3894 016714 
- MW 



SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS 



105737 176504 



6$: 



032737 
001406 
042737 
104033 
005037 
042737 



000401 



030610 
176504 



172100 



000000 
176500 



030610 
176500 



172100 

140000 

000004 

172100 
000004 



7$; 



176506 



176502 
176504 

176504 



8»: 

9*: 

SLENO: 



tstb 

bffli 

jsr 

tstb 

bffli 

error 

clr 



MOV 
tstb 

bffli 

jsr 

tstb 

bffli 

error 

clr 

BIT 

BEQ 

BIC 

ERROR 

clr 

BIC 



xcsrl 
7% 

pc. delay 

xcsrl 

7* 

♦ 76 

mer 



ONULL.XBUFl 
rcsrl 

8« 

pc. delay 

rcsrl 

8) 

♦ 76 
mer 

<«IT15!BIT14. RBUFl 
9* 

«IT02, XCSRl 

♦ 33 
mer 

«eiT02. XCSRl 



:TSTB XCSRl 
:BPL 6i 



:TRA 
;IF 



{TRANSMIT NULL CHARACTER 
J 7$: TSTB RCSRl 



jBPL 



7* 



sIF 



ANY ERRORS SET? 

IF NOT. BRANCH 

RESET TO ENABLE SLU 

OVERRUN NOT CLEARED ON NEXT CHAR. 

{CLEAR LOOP BACK MODE BIT 



BR 



{LAST SLU TEST 
.^GQ TO THE NEXT TEST 



D8 
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SEQ 00^ 

TEST OVERRUN CONDITION 

58% 016716 000240 NOSLU: NOP ;UE SKIPPED ALL SLU TEST IN APT MODE ON MORE THAN I PASS 

3897 

3898 



E8 

COKOOBO KOJll OA CLUSTER 01 AG. 



TEST 



LEO'S ON 



3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 

3916 
3917 
3918 
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SBTTL TEST - LED'S ON 
LED' S ON 

THIS TEST WILL INITIALIZE BOR TO CONTAIN A ROTATING PATTERN 
OISPLAYED IN LEO'S. 

ROUTINE TEST 

WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
STALL ALLOWING TIME TO SEE PATTERN 
ROTATE LEFT TO LIGHT UP NEXT LEO'S 

ENODO 
ENOROUTINE 



SEO O * 



016720 000004 

016722 032777 010000 

016730 001423 

016732 104401 016740 

016736 000420 



162210 



; ; ********* 

TST25: SCOPE 



3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 



017000 

017000 
017000 
017002 
017010 
017012 
017016 
017020 
017026 
017030 
017032 

017040 
017044 
017050 
017054 
017060 
017064 
017066 
017070 



017072 
017072 
017074 
017076 
017100 
017102 
017106 
017112 



005005 
032737 
001413 
005737 
001010 
122737 
001404 
005105 
012737 

012704 
012701 
110137 
012703 
012702 
077201 
077304 
000241 



005201 
077413 
005705 
001411 
104401 
005337 
001352 



;; 30053*; 
30052 

1000 



BIT 
BEO 
TYPE 
BR 



#BIT12.aSWR 
1000* 
.30053$ 
30052* 



IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 

THEN TYPE TEST TRACE 
;TYPE ASCIZ STRING 
;G£T OVER THE ASCIZ 



.ASCIZ <15><12>/TEST 25 - KDJll-DA LEO TESTS/ 



000001 
001206 
000001 



000052 



001220 



000005 002354 

000020 
000000 
177520 
000004 
177777 



1*: 

2*: 

3*: 
4*: 



7*1 



001170 
002354 



017114 005737 177562 



5$; 



CLR 

BIT 

BEQ 

TST 

BNE 

CMPB 

BEO 

COM 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

SOB 

SOB 

CLC 



INC 

SOB 

TST 

BEQ 

TYPE 

DEC 

BNE 



TST 



R5 

#BIT00,a#52 
1* 

♦PASS 
1* 

#APTENV.*ENV 

1$ 

R5 

#5.LE0CNT 

*20.R4 
#0.R1 

Rl,a#NATREG 
*4,R3 

#177777, R2 

R2.4$ 

R3,3* 



Rl 

R4,2* 

R5 

6* 

. *BELL 
LEDCNT 



FLAG IN NO INTERRRUPT MODE 
IF RUNNING IN CHAIN MODE 
SKIP PRINTOUTS 
1ST PASS? 

IF NOT. SKIP PRINTOUTS 
APT MODE? 

YES. SKIP PRINTOUT'S 

CLEAR FLAG IN INTERRUPT MODE 

00 PATTERN 5 TIMES :MC 

FOR EACH LOOP 
START WITH 1 
TURN OFF FIRST LED 
STALL DELAY 
STALL DELAY 
WAIT A WHILE 
WAIT A WHILE 



: 1 19 OCTAL :MC 

J 20 0 OCTAL ;MC 

! RUNNING IN INTERACTIVE MODE? 
jIF NOT. EXIT 



sREPEAT PATTERN 5 TIMES 



RBUF 



;READ BUFFER 



F& 
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TEST - LEO'S ON 

3953 017i20 062706 000004 ADD *4,SP ; ADJUST STACK 

3954 017124 112737 000000 177520 6*; MOVB *0.NATR£G ;N0 MORE 

3955 017132 000400 BR TST26 j .-EXIT TEST 
3956 



G8 
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SEQ 009 



3958 
3959 
3960 
3961 
3962 
3%3 
3964 
3%5 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 

3988 
3989 
3990 
3991 
3992 
3993 
3994 



017134 000004 



017136 
017142 
017144 
017152 
017154 
017160 



SBTTL TEST DIFFERENT LEVELS OF INTERRUPTS 
DIFFERENT LEVELS OF INTERRUPTS 

THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
PIRQ'S WILL BE TESTED. 

CHECK DIFFERENT LEVELS OF INTERRUPTS. 
ROUTINE TEST 

SET VECTOR TO INTERRUPT DMA 
FOR INTERRUPTS FROM 4 T5 7 DO 
ENABLE INTERRUPTS 
SET PRIORI rY»INTERUPT 
IF INTERRUPT FLAG SET THEN 
ERROR 

ENDIF 

ENABLE INTERRUPTS 
SET PRIORITY-INTERRUPT 1 
IF INTERRUPT FLAG NOTSET THEN 
ERROR 

ENDIF 

LET INTERRUPT DMA=0 

ENODO 
ENDROUTINE 

ROUTINE INTERUPT DMA 

LET INTERRUPT FLAG=1 

RETIJRN 
ENDROUTINE 

ST26; SCOPE 



UPTS/ 



3995 
39% 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 



017264 
017264 



017264 
017270 
017276 
017304 
017310 



017314 
017314 
017320 
017324 









; BIT 


#BIT07.a*52 


sUFD MODE? 








! SKIP 


NE.<IF SO. EXIT 


TEST> 


005737 


002334 




TST 


CSRl 


:AT LEAST ONE Q22BE FOUND? 


001534 






BEQ 


TST27 


;:IF NOT. EXIT TEST 


032777 


010000 


161766 


BIT 


«BIT12.aSUR 


: IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 


001444 






BEQ 


1000$ 


: THEN TYPE TEST TRACE 


104401 


017162 




TYPE 


.30055$ 


; J TYPE ASCIZ STRING 


000441 






BR 


30054$ 


::GET OVER THE ASCIZ 








; $30055$: 


.ASCIZ <15><12>/TEST 26 - ARBITRATION BETWEEN CPU PRIORITY AND Q BUS INTERH 








30054$: 












1000$: 












i SETUP INITIAL 


PRIORITY TO 7 




013703 


002334 




MOV 


CSR1,R3 


:00 FOR FIRST FOUND Q22BE 


012777 


017340 


163050 


MOV 


«5$.SVQBE1 


s POINT INTERRUPT VECTOR TO PROGRAM 


012777 


000340 


163044 


MOV 


#340.aVQPRl 


•AT PRIORITY 7 


012700 


003002 




MOV 


#Q22EN.R0 


1 START WITH 4 FOR INTERRUPTS 


012701 


000340 




MOV 


#340. Rl 


:LOW BOUNDARY FOR NO INTERRUPTS 



CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR 



106427 
004737 
012077 



000200 
030026 
163006 



2$: 
4$: 



MTPS 

JSR 

MOV 



#200 

PC.Q22INT 
(R0)«.aCSR2 



SET PRIORITY NOT TO INTERRUPT 
ENABLE INTERRUPTS 
CLEAR GO BIT 



H8 

COKDOBO KOJll DA CLUSTER DIAG 



TEST 
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DIFFERENT LEVELS OF INTERRUPTS 



4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 



017330 
017332 
017334 
017336 
017340 
017342 
017346 
017350 
017352 



017352 
017360 
017366 



017372 
017376 
017402 
017406 
017410 
017412 
017414 
017416 
017422 
017424 
017426 
017430 



000240 
000240 

000240 
000405 
104037 
005037 
005726 
005726 



012777 
012777 
012700 



106427 
004737 
011077 
000240 
000240 
000240 
104037 
005037 
000402 
005726 
005726 
106427 



172100 



5*i 



6$: 



NOP 
NOP 
NOP 
BR 

ERROR 
clr 
TST 
TST 



6$ 
♦ 37 
mer 

(SP)< 
(SP)< 



017424 
000340 
003002 



000140 
030026 
162730 



172100 



000340 



162766 
162762 



INTERRUPT AT ALL LEVELS 



INQ22: 



MOV 
MOV 
MOV 



»5$.3VQBE1 

#340.SVQPR1 

*Q22EN,R0 



CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOl 



4$: 



5*: 
6$: 



MTPS 

JSR 

MOV 

NOP 

NOP 

NOP 

ERROR 

clr 

BR 

TST 

TST 

MTPS 



#140 

PC,Q22INT 
(R0).SCSR2 



♦37 
mer 
6« 

(SP)^ 
CSP)< 
#340 



r 



SEQ 009 



;IF NO INTERUPT, BRANCH 
; INTERRUPTS HAPPEN 

; RESTORE STACK 



POINT INTERRUPT VECTOR TO PROGRAM 
AT PRIORITY 7 

START UITH 4 FOR INTERRUPTS 
THAN BR 

SE"^ PRIORITY TO INTERRUPT 
ENABLE INTERRUPTS 
CLEAR GO BIT 
WAIT A UHILE 



s INTERRUPTS DON'T HAPPEN 

J DON T RESTORE STACK 
; RESTORE STACK 

.•BACK TO 7 



18 
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ER 



4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 

4059 
4060 
4061 
4062 
4063 



017434 000004 



017436 
017442 
017444 



005737 
001523 
032777 



002334 

010000 161466 



4064 


017452 


001441 








BEQ 


1000$ 


4065 


017454 










TYPE 


, 300b 1 » 




017460 


000436 








BR 


30056* 












; i 30057$: 


.ASCIZ <15><1 




017556 








30056*: 






4066 


017556 








1000»: 






4067 


017556 


012777 


017656 


162562 




MOV 


«3$,SVQBE1 


4068 


017564 


012777 


000340 


162556 




MOV 


«340.SV0PR1 


4069 


017572 


012737 


017672 


000240 




MOV 


*4$.PIRQVEC 


4070 017600 


012737 


000340 


000242 




MOV 


*340,PIRQVEC*2 


4071 


017606 


012700 


003002 






MOV 


#Q22EN,R0 


4072 


017612 


012704 


017710 






MOV 


*PIRQT,R4 


4073 


017616 


013703 


002334 






MOV 


CSR1.R3 


4074 


017622 


012702 


000140 






MOV 


#140, R2 


4075 


017626 


106427 


000340 




2$: 


MTPS 


#340 


4076 


017632 


012437 


177772 






MOV 


(R4)*.PIRQ 


4077 


017636 


004737 


030026 






JSR 


PC.Q22INT 


4078 


017642 


012077 


162470 






MOV 


(R0)*,aCSR2 


4079 


017646 


106402 








MTPS 


R2 


4080 


017650 


000240 








NOP 




4081 


017652 


000240 








NOP 




4082 


017654 


000240 








NOP 




4083 


017656 


104035 






3*: 


ERROR 


♦35 


4084 


017660 


005037 


172100 






clr 


mer 


4085 


017664 


005726 








TST 


(SP)* 


4086 


017666 


005726 








TST 


(SP)» 


4087 


017670 


000402 








BR 


5* 


4088 017672 


005726 






4$: 


TST 


CSP)* 


4089 


017674 


005726 








TST 


(SP)^ 


4090 


017676 


005037 


177772 




5*: 


CLR 


PIRQ 


4091 


017702 


005077 


162430 






CLR 


aCSR2 


4092 
4093 


017706 


000401 








BR 


TST30 


4094 


017710 


010000 






PIRQT ; 


.UORD 


10000 .-PIRQ' 



SBTTL TEST ARBITRATION BETWEEN PIRQ'S AND INTERRUPTS 
CHECK PRIORITY ORDER BETWEEN PIRQ'S AND INTERRUPTS. 
ROUTINE TEST 

IF UFD THEN 

EXIT TEST 

ENDIF 

DO FOR I FROM <»6 DOWN TO « 
SET PRIORITY TO I 

ENABLE INTERRUPT(I*1) AND PIRQ(I*1) 
IF INTERRUPT(I*1) WAS BEFORE PIRQ(I*1) THEN 
ERROR 

ENDIF 

ENDDO 
ENDROUTINE 

TST27: SCOPE 

: BIT #BIT07.a#52 :UFD MODE? 

; SKIP NE,<IF SO. EXIT TEST> 

TST CSRl :AT LEAST ONE Q22BE FOUND? 

BEQ TST30 jsIF NOT, EXIT TEST 

BIT #BIT12.aSUR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGIST 

i THEN TYPE TEST TRACE 
ijTYPE ASCIZ STRING 
j.-GET OVER THE ASCIZ 

■/TEST 27 ARBITRATION BETWEEN PIRQ'S AND Q-BUS INTERRUPTS/ 



SETUP Q228E VECTOR 
AT PRIORITY 7 
SETUP PIRQ VECTOR 
AT PRIORITY 7 

POINT THRU PRIORITIES FOR Q22BE 

POINTER THRU PIRQ'S 

DO FOR FIRST Q22BE 

START WITH CPU PRIORITY AT 7 

RAISE PRIORITY TO 7 

SET PRIORITY FOR PIRQ'S 

INITIALISE Q22BE TO INTERRUPT 

SET DONE BIT 

LOWER PRIORITY 



;PIRQ'S DON'T TAKE OVER BIRQ S 

; CLEAN UP STACK 

! BRANCH AROUND PIRQ INTERRUPT 
J CLEAN UP STACK 



; CLEAR ANY REQUESTS 
; CLEAR JUST IN CASE 
; jGO TO THE NEXT TEST 



r 



J3 

COKOOBO 



TEST 
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4096 

4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 



017712 000004 

017714 005037 177572 

017720 000137 031632 



TST30: 



SCOPE 

CIR 

JMP 



017724 123727 001220 000001 VIREOP: CMPB 

017732 001005 BNE 

017734 005737 003034 TST 

017740 001402 BEQ 

017742 005337 003034 DEC 



017746 000205 



1$: 



rts 



MSRO 
$E0P 

*ENV.»1 
1$ 

CCHPAS 
It 

CCHPAS 



SEO 0100 



••DISABLE MMU (DO NOT REMOVE !!!) 
;EXIT 

I if not APT. don't worry ibout 

i 

i maintain each* rout in paacnt 



r5 



This VIREOP ROUTINE to provide conmon End of Paaa exit po'nt 



I<8 
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GLOBAI ERROR MESSAGES 
4110 



4111 017750 








4112 017750 


015 


012 


113 


017753 


104 


112 


061 


017756 


061 


055 


104 


017761 


101 


Ail A 

040 


\ AT 

103 


A 1 ^T£,A 
01 f f 04 


120 


125 


AAA 
040 




104 


1 1 1 
111 


1 A1 
101 


Qll I 


f A^ 


llD 


11 1 


A1 T^TC 


l£0 


1 OA 

lc4 


111 
111 


A^AAAA 


1 AT 

103 


AA A 
040 


ACC 

Odd 


A^AAAT 

0^0«>Oo 


AJI A 

040 


1 AT 

105 


11 1 


AOAA/\il 




1 AA 
104 


1 AA 

104 


AOAA1 1 


1 A1 

101 


AAA 
OOO 


A1 C 
013 


OcOOlH 


A1 O 


A1 O 
01^ 




4113 OcOOlo 


Ico 


1 07 

id 1 


111 

111 


AOAA3 < 

OeOvcl 


lc4 


lOO 


1 1 A 

llO 




OAO 


1 oo 
Icc 


1 

1U3 


AOAA37 


1 n7 

lU f 


111 
111 


1 3T 
lc3 


noAATo 

UeOUOc 


1 3A 
lc4 


lOD 


1 33 
Icc 




AAn 


1 3T 
led 


1 

103 




1 1 A 


1U3 


lOT 
lOO 




1 OA 
lc4 


111 
111 


117 
11 ' 




lift 

no 


n73 
0 Id 


rtl 3 
OlC 




Ulc 


V/13 






lUc 


111 
111 


1 3A 
1C4 


AOAACC 




lift 
IID 


1 3^ 
lc3 




113 


1 03 
lUc 


1 

1U3 


AOAA^LA 


ICC 


m 1 
oil 


ni 1 
oil 


Uc V/vO f 


Ull 


m 1 

Ull 


1 3^ 
lc3 




1 OX 
IcO 


1 

1U3 


rtl 3 
Ulc 


Ucwv ' J 


Ul J 








U33 


U33 




AOAI A1 


U33 


U33 


U J J 


MM fkA 


U33 




OJ J 






mi 

Ull 


ni 1 

Ull 




Ull 




033 
















U3D 






033 


Ojij 


AOAI 


U33 


033 


OD3 




033 


OjJ 


A^<; 
03j 


UcOl 04 


033 


U33 


rtl 3 

Ole 


nsfti 't7 


U13 








Oil 


Ool 


003 


AOA1 47 


Oil 


A1 1 

oil 


A1 1 
Oil 


020146 


110 


101 


1 14 


020151 


124 


040 


117 


020154 


116 


040 


105 


020157 


122 


122 


117 


020162 


122 


012 


015 


4117 020165 


Oil 


061 


064 


020170 


Oil 


Oil 


Oil 


020173 


114 


117 


117 


020176 


120 


040 


117 


020201 


116 


040 


120 


020204 


122 


105 


123 



SEQ 0101 



.S8TTL GLOBAL ERROR MESSAGES 
SUTSEL: 

.ASCII <15><12>/K0J11 OA CPU DIAGNOSTIC - C0K0DA0/<15><12><12' 



.ASCII /SWITCH REGISTER SEI ECTI0N:/<12><12><15> 



.ASCII /BIT NUMBER 



USE/<12><15> 



.ASCII / 



-/<12><15> 



.ASCII / 



15 



HALT ON ERR0R/<12><15> 



.ASCII / 



14 



LOOP ON PRESENT TEST/<12><15> 



T 



L8 
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SEO 0102 



020207 


105 


116 


124 


020212 


040 


1 til 

124 


1 AC 

105 


020215 


123 


124 


012 


020220 


015 






4110 020221 


All 

Oil 


061 


AC'S 

063 


020224 


A1 1 
Oil 


A1 1 

UI 1 


All 
Ull 


Q<:U22 ' 


111 

111 


1 1 ^ 

lio 


1 1 A 


020292 


111 
111 


1 AO 

102 


111 

111 


02U233 


12* 


AAA 


1 AC 
103 




1 oo 


1 33 
122 


11 ' 


AO A OA 1 

02Uc49 


1 oo 
122 


AAA 


1 OA 

12* 


02wc*O 




1 OA 

12U 


1 AC 
1U3 




117 


1 3^ 
123 


1 3A 
lc*» 




1 O'? 

120 


ftl 3 
U12 


ftl C 


A1 1Q A0A0^7 

• 0202j» 


m 1 
Ull 


v/Dl 


ftA3 




m 1 


ftl 1 
Ull 


ftl 1 
Ull 




1 


1 1 

no 


Ifti 
lUl 




1 fta 


1 1A 
11* 


1 ft^ 
1U3 






1 3A 

Ic* 


1 ft^ 
1U3 


\icMC r O 


1 3X 


1 3A 

le* 


ftAft 




1 


1 33 
Icc 


Ifti 
lUl 




lOT 


111 
111 


1 1 A 
llO 


wcUOU r 


1 n7 

lU ' 


ftl 3 


ftl^ 
W13 






OA1 
\/oi 


ftAI 




M 1 
Ull 


ftl 1 

vll 


ftl 1 
Ull 




111 
111 


1 1 A 
llO 


lift 
IIW 




111 

111 


1ft3 
lUC 


111 
111 




1 


ftAft 


111 
111 




19A 


Ift^ 
lU^ 


1 33 
Icc 




1 ni 

lUl 


1 3A 
le* 


111 
111 




117 
11 ' 


1 1A 
IID 


13^ 

IcO 




ftl 3 
Ulc 


ftl 

U13 




4191 n?0'^4A 


01 1 

vll 


ft^l 
vvl 


ft^ift 




oil 

Ull 


ftl 1 
vll 


ftl 1 
v^ll 




1 np 

lUC 


Ift^ 
lUD 


1 1 A 
11*» 




1 1 A 
11^ 


ftAft 


117 
11 ' 




1 1A 
llO 


ftdft 


1 ft^ 
1U3 




Icc 


1 33 
Icc 


117 
11 f 




1 33 
Icc 


ftl 3 
Ulc 


ftl ^ 
U13 




01 1 
Vill 


ftAft 


ft71 
U ' 1 




01 1 
Ull 


ftl 1 
Ull 


ftl 1 
Ull 


030 '^77 


1 1 A 
ll** 


117 
11 ' 


I 1 7 

II ' 




1 3ft 
IcV 


ftdft 


117 
11 ' 




1 1<^ 
IID 




1 ft<\ 
lUj 




1 33 
12c 


1 33 
l£:2 


117 
11 ' 




1 33 
Icc 


ni o 
U12 


ftl C 
U13 




ftl 1 
Ull 




ft7ft 


020421 


Oil 


CI 1 

VIA 


01 1 


020424 


114 


117 


117 


020427 


120 


040 


117 


020432 


116 


040 


124 


020435 


105 


123 


124 


020440 


040 


111 


116 


020443 


040 


123 


127 


020446 


122 


074 


065 


020451 


055 


060 


076 


020454 


012 


015 





.ASCII / 



13 



INHIBIT ERROR TYPE0UTS/<12><15> 



.ASCII / 



12 



ENABLE TEST TRACING/<12><15> 



.ASCII / 



11 



INHIBIT ITERATI0NS/<12><15> 



.ASCII / 



10 



BELL ON ERR0R/<12><15> 



.ASCII / 



LOOP ON ERROR/' 12><15> 



.ASCII / 



LOOP ON TEST IN SUR<5-0>/<12><15> 



MS 

COKD060 KDJll-DA CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 



5> 



4124 020456 


oil 


040 


AiT 

067 


0204ol 


oil 


Oil 


A1 1 
Oil 


0cO4t># 


111 
111 


llo 


1 1 A 
XlU 


0204O f 


111 
111 


102 


111 

111 


0c04 f c 




AAA 


1 D4 

124 


OcO* 'J 


IIU 


1 A^ 

10 J 


AAA 


OcrOaVU 


1 nT 

103 


1 1 A 

no 


1 AQ 

lOo 






Ixd 


AAA 




lev 


1 A1 
lUX 


Icc 




111 
III 


1 DA 


121 


020514 


040 


124 


105 


020517 


123 


124 


012 
















Aftft 




m 1 


ni 1 

UlX 


m 1 

vll 




lift 


1 57 


1 ftA 






1ft5 


1 ftX 
1D3 


OPOSS7 


XHj 


1AA 


ni p 

Ulc 










41P6 0?0S4'^ 


VXX 




055 






01 1 
vXX 


m 1 

vll 




01 1 

vX X 


IP'^ 

XC ^ 


1 ft5 




1 AP 


1 f,A 


A5 




XV<^ 


lf>A 
xo^ 


040 
v^v 






1 A5 
xo^ 


1 55 

X33 




1 AP 

XHC 


1 A5 


IftP 
IDC 


0P0570 


040 


16A 


157 

X J ' 




040 




1 57 

X>J 1 




X J ' 




040 
v^v 




157 


156 

X-w 


OAO 
v^v 




050 


lOP 


111 

XXX 


0P0607 


1P4 


OAO 


070 






OIP 


OIP 
vxc 




015 






4127 








41PA 0P0ftl7 


1 0P 
X vc 




IPX 

XcO 




111 

XXX 


xv^ 


OAO 


0P06P5 


111 

XXX 


lift 

XXQ 


IP''! 

XC<J 


6paa!$6 


1P4 

XCH 


1 PP 
XCC 


1 P5 




1 0T 
Xvd 


1 PA 


111 
111 




117 

XX ' 


1 1 ft 

X XD 






IP'^ 
xc^ 


105 
Xv^ 


1 PA 
Ic^ 




040 


105 

Xv^ 


1 PP 
Icc 


0PA^7 


1 pp 
Xcc 


117 


1 PP 
XCC 


ftP^V\^P 


KAAJ 






115 
XX^ 


115 
1X3 


1 P5 
Ic J 




nA(\ 
yj^yj 


lUP 


1 3P 
lec 


020661 


122 


117 


122 


020664 


000 






4130 020665 


106 


120 


120 


020670 


040 


105 


122 


020673 


122 


117 


122 


020676 


000 






4131 020677 








4132 020677 


103 


110 


105 


020702 


103 


113 


123 


020705 


125 


115 


040 
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, ASCII / 



SCO 0103 



INHIBIT THE CHECK PARITY TEST/<12><15> 



EM51- 



.ASCII / 



.ASCIZ / 



5-0 



Not used/<12><15> 



Subtest number to loop on (BIT 8)/<12><12><l 



.ASCIZ /BASIC INSTRUCTION SET ERROR/ 



.ASCIZ /MMU ERROR/ 



.ASCIZ /FPP ERROR/ 



.ASCIZ /CHECKSUM ERROR IN 16 BIT ROM / 



N8 

COKOOBO KDJll-OA CLUSTER DIAG. MACRO V0S.03 Uednesday 09 Apr 86 09:43 Page 38 3 
GLOBAL ERROR MESSAGES 



EQ 0104 





1 


1 33 
Icc 


'. 33 
xcc 




117 


1 33 


SJHKJ 


UcU f ID 


111 
111 


1 1 A 
IID 


e\ACi 


ucu 1 el 


UDl 


UDD 


VJJ 




1 n3 


111 
111 


1 3A 
xcH 


npn737 
y/cv 1 c f 




1 

xcc 


117 

XX ' 


SJcU 1 DC 


1 1^ 

11 J 








1?4 


111 

XXX 


1 15 
XX J 






117 

XX ' 


1P5 

XC^ 




124 


040 


122 

Xbb 


020746 


105 


101 

xvx 


104 

X 


0P0751 


111 


116 

X XV 


107 

Xw r 




040 


114 

X x~ 


113 

X X ^ 


020757 


123 


000 




4134 0?0761 


114 


113 

X X 


123 

Xb «^ 


020764 


074 


060 


067 




076 


040 


104 

X 


020772 


117 


105 


123 


020775 


040 


116 


117 


021000 


124 


040 


102 


02100i 


105 


103 


117 


021006 


115 


105 


040 


021011 


061 


000 




4135 021013 


111 


114 


114 


021016 


105 


107 


101 


021021 


114 


040 


114 


021024 


113 


123 


040 


021027 


111 


116 


124 


021032 


105 


122 


122 


021035 


125 


120 


124 


021040 


123 


000 




4136 021042 


114 


113 


123 


021045 


040 


122 


105 


021050 


101 


104 


131 


021053 


040 


104 


117 


021056 


105 


123 


116 


021061 


047 


124 


040 


021064 


107 


117 


040 


021067 


114 


117 


127 


021072 


000 






4137 021073 


127 


122 

Xbb 


117 


021076 


116 


107 


040 


021101 


116 

X X w 


125 

Xb — ' 


115 


021104 


102 

X 


105 


122 

Xbb 


021107 


040 


117 


106 


021112 


040 


114 


113 


021115 


123 

Xb 


040 


111 

XXX 


021120 


116 


124 


105 


021123 


122 


122 


125 


021126 


120 


124 


123 


021131 


000 






4138 021132 


114 


113 


123 


021135 


040 


111 


116 


021140 


124 


105 


122 


021143 


122 


125 


120 


021146 


124 


123 


040 


021151 


110 


101 


120 



.ASCIZ /TIMEOUT READING LKS/ 



.ASCIZ /LKS<07> DOES NOT BECOME 1/ 



■ASCIZ /ILLEGAL LKS INTERRUPTS/ 



.ASCIZ /LKS READY DOESN'T GO LOU/ 



.ASCIZ /WRONG NUMBER OF LKS INTERRUPTS/ 



.ASCIZ /LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/ 



B 
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glosal error messages 



021154 


120 


105 


116 


021157 


040 


101 


124 


021162 


040 


127 


122 


021165 


117 


116 


107 


021170 


040 


120 


122 


021173 


111 


117 


122 


021176 


111 


124 


131 


021201 


000 






4139 021202 


122 


105 


123 


021205 


105 


124 


040 


021210 


104 


117 


105 


021213 


123 


116 


047 


021216 


124 


040 


103 


021221 


114 


105 


101 


021224 


122 


040 


114 


021227 


113 


123 


074 


021232 


060 


066 


076 


021235 


000 






4140 021236 


124 


111 


115 


021241 


105 


117 


125 


021244 


124 


040 


122 


021247 


105 


101 


104 


021252 


111 


116 


107 


021255 


040 


123 


114 


021260 


125 


040 


122 


021263 


105 


107 


111 


021266 


123 


124 


105 


021271 


122 


123 


000 


4141 021274 


105 


122 


122 


021277 


117 


122 


040 


021302 


111 


116 


040 


021305 


130 


115 


111 


021310 


124 


040 


122 


021313 


105 


101 


104 


021316 


131 


000 




4142 021320 


122 


103 


123 


021323 


122 


074 


067 


021326 


076 


040 


104 


021331 


117 


105 


123 


021334 


116 


047 


124 


021337 


040 


102 


105 


021342 


103 


117 


115 


021345 


105 


040 


061 


021350 


000 






4143 021351 


127 


122 


117 


021354 


116 


107 


040 


021357 


103 


110 


101 


021362 


122 


101 


103 


021365 


124 


105 


122 


021370 


040 


122 


105 


021373 


103 


105 


111 


021376 


126 


105 


104 


021401 


000 






4144 021402 


122 


103 


123 


021405 


122 


074 


060 


021410 


067 


076 


040 


021413 


116 


117 


124 



.ASCIZ /RESET DOESN T CLEAR LKS<06>/ 



.ASCIZ /TIMEOUT READING SLU REGISTERS/ 



■ASCIZ /ERROR IN XMIT READY/ 



.ASCIZ /RCSR<7> DOESN'T BECOME 1/ 



, ASCIZ /WRONG CHARACTER RECEIVED/ 



.ASCIZ /RCSR<07> NOT CLEARED AFTER READING RBUF/ 



r 



C9 
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040 


103 


114 






105 


101 


IPP 

xcc 




OP 1 4P4 


105 


104 


040 






101 


106 


124 




0P143P 


105 


IPP 


040 




021435 


122 


105 


101 




021440 


104 


111 


116 




021443 


107 


040 


122 




021446 


102 


125 


106 




021451 


000 








4145 021452 


130 


103 


123 


EM77: 


021455 


122 


074 


060 




021460 


067 


076 


040 




021463 


116 


117 


124 




021466 


040 


123 


105 




021471 


124 


040 


117 




021474 


116 


040 


122 




021477 


105 


123 


105 




021502 


124 


000 






4146 021504 


122 


103 


1. 


EMIOO 


021507 


122 


074 


06v/ 




021512 


067 


076 


040 




021515 


116 


117 


124 




021520 


040 


103 


114 




021523 


105 


101 


122 




021526 


105 


104 


040 




021531 


117 


116 


040 




021534 


122 


105 


123 




021537 


105 


124 


000 




4147 021542 


123 


114 


125 


EMIOI 


021545 


040 


111 


116 




021550 


124 


105 


122 




021553 


122 


125 


120 




021556 


124 


123 


040 




021561 


110 


101 


120 




021564 


120 


105 


116 




021567 


040 


101 


124 




021572 


040 


064 


000 




4148 021575 


122 


105 


123 


EM102 


021600 


105 


124 


040 




021603 


104 


117 


105 




021606 


123 


040 


116 




021611 


117 


124 


040 




021614 


103 


114 


105 




021617 


101 


122 


040 




021622 


120 


122 


117 




021625 


120 


105 


122 




021630 


040 


102 


111 




021633 


124 


123 


040 




021636 


111 


116 


040 




021641 


123 


114 


125 




021644 


040 


122 


105 




021647 


107 


111 


123 




021652 


124 


105 


122 




021655 


123 


000 






4149 021657 


124 


122 


101 


EM103 


021662 


116 


123 


115 





.ASCIZ /XCSR<07> NOT SET ON RESET/ 



.ASCIZ /RCSR<07> NOT CLEARED ON RESET/ 



.ASCIZ /SLU INTERRUPTS HAPPEN AT 4/ 



.ASCIZ /RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 



.ASCIZ /TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 



D9 
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SEQ 0107 



021665 


111 


124 


040 


021670 


111 


116 


124 


021673 


105 


122 


122 


021676 


125 


120 


124 


021701 


040 


104 


117 


021704 


105 


123 


040 


021707 


116 


117 


124 


021712 


040 


103 


114 


021715 


105 


101 


122 


021720 


040 


130 


103 


021723 


123 


122 


074 


021726 


060 


067 


076 


021731 


000 






4150 021732 


122 


105 


103 


021735 


105 


111 


126 


021740 


105 


040 


111 


021743 


116 


124 


105 


021746 


122 


122 


125 


021751 


120 


124 


123 


021754 


040 


104 


117 


021757 


116 


047 


124 


021762 


040 


103 


114 


021765 


105 


101 


122 


021770 


040 


122 


103 


021773 


123 


122 


074 


021776 


060 


067 


076 


022001 


000 






4151 022002 


102 


122 


105 


022005 


101 


113 


040 


022010 


103 


117 


116 


022013 


104 


111 


124 


022016 


111 


117 


116 


022021 


040 


104 


117 


022024 


105 


123 


O'O 


022027 


116 


117 


1^4 


022032 


040 


123 


105 


022035 


124 


040 


122 


022040 


102 


125 


106 


022043 


040 


120 


122 


022046 


117 


120 


105 


022051 


122 


114 


131 


022054 


000 






4152 022055 


122 


102 


125 


022060 


106 


040 


074 


022063 


061 


065 


055 


022066 


061 


061 


076 


022071 


040 


127 


101 


022074 


123 


116 


047 


022077 


124 


040 


103 


022102 


114 


105 


101 


022105 


122 


105 


104 


022110 


040 


117 


116 


022113 


040 


116 


105 


022116 


130 


124 


040 


022121 


103 


110 


101 


022124 


122 


101 


103 


022127 


124 


105 


122 



.ASCIZ /RECEIVE INTERRUPTS Df *'T CLEAR RC ^' >/ 



•ASCIZ /BREAK CONDITION DOES NOT SET R8UF PROPERLY/ 



.ASCIZ /RBUF <15 11> WASN'T CLEARED ON NEXT CHARACTER/ 



COKOCCO KOJll OA CLUSTER Ol/Wi. 
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SEQ O'.Of 



022132 


000 






4153 022133 


123 


114 


125 


022136 


040 


111 


116 


022141 


124 


105 


122 


022144 


122 


125 


120 


022147 


124 


123 


040 


022152 


104 


117 


116 


022155 


047 


124 


040 


022160 


110 


101 


120 


022163 


120 


105 


116 


022166 


000 






4154 022167 


105 


122 


122 


022172 


117 


122 


040 


022175 


111 


116 


040 


022200 


127 


122 


111 


022203 


124 


111 


116 


022206 


107 


040 


124 


022211 


117 


040 


123 


022214 


114 


125 


040 


022217 


122 


105 


107 


022222 


111 


123 


124 


022225 


105 


122 


123 


022230 


000 






4155 022231 


106 


111 


122 


022234 


123 


124 


040 


022237 


103 


110 


101 


022242 


122 


101 


103 


022245 


124 


105 


122 


022250 


040 


127 


101 


022253 


123 


040 


116 


022256 


117 


124 


040 


022261 


117 


126 


105 


022264 


122 


122 


125 


022267 


116 


040 


102 


022212 


131 


040 


124 


022275 


110 


105 


040 


022300 


123 


105 


103 


022303 


117 


116 


104 


022306 


000 






4156 022307 


117 


126 


105 


022312 


122 


122 


125 


022315 


116 


040 


103 


022320 


117 


116 


104 


022323 


111 


124 


111 


022326 


117 


116 


040 


022331 


104 


117 


105 


022334 


123 


040 


116 


022337 


117 


124 


040 


022342 


123 


105 


124 


022345 


040 


120 


122 


022350 


117 


120 


105 


022353 


122 


040 


102 


022356 


111 


124 


123 


022361 


040 


111 


116 


022364 


040 


122 


102 


022367 


125 


106 


000 


4157 022372 


117 


126 


105 



.ASCIZ /SLU INTERRUPTS DON'T HAPPEN/ 



.ASCIZ /ERROR IN WRITING TO SLU REGISTERS/ 



.ASCIZ /FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 



.ASCIZ /OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/ 



, ASCIZ /OVERRUN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 



r 



FO 
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SEQ o: 



022375 


122 


122 


125 


022400 


116 


040 


102 


022403 


111 


124 


123 


022406 


040 


127 


105 


022411 


122 


105 


040 


022414 


116 


117 


124 


022417 


040 


103 


114 


022422 


105 


101 


122 


022425 


105 


104 


040 


022430 


117 


116 


040 


022433 


124 


110 


105 


022436 


040 


116 


105 


022441 


130 


124 


040 


022444 


103 


110 


101 


022447 


122 


101 


103 


022452 


124 


105 


122 


022455 


000 






4158 022456 


105 


122 


122 


022461 


117 


122 


040 


022464 


117 


116 


040 


022467 


130 


103 


123 


022472 


122 


074 


062 


022475 


076 


000 




4159 022477 


105 


122 


122 


022502 


117 


122 


040 


022505 


111 


116 


040 


022510 


121 


062 


062 


022513 


102 


105 


040 


022516 


104 


115 


101 


022521 


040 


103 


131 


022524 


103 


114 


105 


022527 


123 


000 




4160 022531 


120 


111 


122 


022534 


121 


040 


111 


022537 


116 


124 


105 


022542 


122 


122 


125 


022545 


120 


124 


123 


022550 


040 


104 


117 


022553 


116 


047 


124 


022556 


040 


124 


101 


022561 


113 


105 


040 


022564 


120 


122 


111 


022567 


117 


122 


111 


022572 


124 


131 


040 


022575 


117 


126 


105 


022600 


122 


040 


121 


022603 


040 


102 


125 


022606 


123 


040 


111 


022611 


116 


124 


105 


022614 


122 


122 


125 


022617 


120 


124 


123 


022622 


000 






4161 022623 


116 


117 


040 


022626 


120 


117 


127 


022631 


105 


122 


040 


022634 


104 


117 


127 


022637 


116 


040 


124 



.ASCIZ \ERROR ON XCSR<2>\ 



.ASCIZ /ERROR IN Q22BE DMA CYCLES/ 



.ASCIZ /PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER Q BUS INTERRUPTS/ 



.ASCIZ /NO POUER DOUN TRAP TO 24 OCCUR/ 



G9 
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S£Q Oil 



022642 


122 


101 


120 


022645 


040 


124 


117 


022650 


040 


062 


064 


022653 


040 


117 


103 


022656 


103 


125 


122 


022661 


000 






4162 022662 


105 


122 


122 


022665 


117 


122 


040 


022670 


104 


117 


111 


022673 


116 


107 


040 


022676 


121 


062 


062 


022701 


102 


105 


040 


022704 


111 


116 


124 


022707 


105 


122 


122 


022712 


125 


120 


124 


022715 


123 


000 




4163 022717 


105 


122 


122 


022722 


117 


122 


040 


022725 


111 


116 


040 


022730 


117 


120 


105 


022733 


122 


101 


124 


022736 


111 


117 


116 


022741 


040 


117 


106 


022744 


040 


120 


115 


022747 


107 


040 


103 


022752 


117 


125 


116 


022755 


124 


105 


122 


022760 


000 






4164 022761 


125 


116 


105 


022764 


130 


120 


105 


022767 


103 


124 


105 


022772 


104 


040 


124 


022775 


122 


101 


120 


023000 


040 


124 


117 


023003 


040 


064 


000 


4165 023006 


105 


122 


122 


023011 


117 


122 


040 


023014 


127 


122 


111 


023017 


124 


111 


116 


023022 


107 


040 


124 


023025 


117 


040 


114 


023030 


113 


123 


074 


023033 


066 


076 


000 


4166 023036 


105 


122 


122 


023041 


117 


122 


040 


023044 


111 


116 


040 


023047 


115 


101 


111 


023052 


116 


124 


105 


023055 


116 


101 


116 


023060 


103 


105 


040 


023063 


122 


105 


107 


023066 


111 


123 


124 


023071 


105 


122 


000 


4167 023074 


105 


122 


122 


023077 


117 


122 


040 


023102 


111 


116 


040 


023105 


124 


110 


105 



.ASCIZ /ERROR DOING Q22BE INTERRUPTS/ 



•ASCIZ /ERROR IN OPERATION OF PMG COUNTER/ 



.ASCIZ /UNEXPECTED TRAP TO 4/ 



.ASCIZ /ERROR WRITING TO LKS<6>/ 



.ASCIZ /ERROR IN MAINTENANCE REGISTER/ 



.ASCIZ /ERROR IN THE MEMORY DATA PATH/ 



r 



J 
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SCO on; 



023110 


040 


115 


105 


023113 


115 


117 


122 


023116 


131 


040 


104 


023121 


101 


124 


101 


023124 


040 


120 


101 


023127 


124 


110 


000 


4168 023132 


124 


111 


115 


023135 


105 


104 


040 


023140 


117 


125 


124 


023143 


040 


111 


116 


023146 


040 


101 


103 


023151 


103 


105 


123 


023154 


123 


111 


116 


023157 


107 


040 


114 


023162 


117 


103 


101 


023165 


124 


111 


117 


023170 


116 


040 


060 


023173 


000 






4169 023174 


124 


111 


115 


023177 


105 


104 


040 


023202 


117 


125 


124 


023205 


040 


111 


116 


023210 


040 


124 


122 


023213 


131 


111 


116 


023216 


107 


040 


124 


023221 


117 


040 


101 


023224 


103 


103 


105 


023227 


123 


123 


040 


023232 


115 


105 


115 


023235 


117 


122 


131 


023240 


000 




4170 023241 


105 


122 


122 


023244 


117 


122 


040 


023247 


111 


116 


040 


023252 


106 


125 


116 


023255 


103 


124 


111 


023260 


117 


116 


101 


023263 


114 


040 


122 


023266 


105 


126 


111 


023271 


123 


ill 


117 


023274 


116 


040 


102 


023277 


111 


124 


123 


023302 


040 


117 


116 


023305 


040 


124 


110 


023310 


105 


040 


116 


023313 


101 


124 


111 


023316 


126 


105 


040 


023321 


122 


105 


107 


023324 


111 


123 


124 


023327 


105 


122 


000 


4171 023332 


105 


122 


122 


023335 


117 


122 


040 


023340 


111 


116 


040 


023343 


124 


110 


105 


023346 


040 


111 


116 


023351 


104 


111 


103 


023354 


101 


124 


117 



.ASCIZ /TIMED OUT IN ACCESSING LOCATION 0/ 



.ASCIZ /TIMED OUT IN TRYING TO ACCESS MEMORY/ 



.ASCIZ /ERROR IN FUNCTIONAL REVISION BITS ON THE NATIVE REGISTER/ 



.ASCIZ /ERROR IN THE INDICATOR BITS ON THE NATIVE REGISTER/ 



19 
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SEO 0112 



023357 


122 


040 


102 


023362 


111 


124 


123 


023365 


040 


117 


116 


023370 


040 


124 


110 


023373 


105 


040 


116 


023376 


101 


124 


111 


023401 


126 


105 


040 


023404 


122 


105 


107 


023407 


111 


123 


124 


023412 


105 


122 


000 


4172 023415 


105 


122 


122 


023420 


117 


122 


040 


023423 


111 


116 


040 


023426 


124 


110 


105 


023431 


040 


102 


117 


023434 


117 


124 


040 


023437 


123 


105 


114 


023442 


105 


103 


124 


023445 


040 


123 


127 


023450 


111 


124 


103 


023453 


110 


105 


123 


023456 


040 


117 


116 


023461 


040 


124 


110 


023464 


105 


040 


116 


023467 


101 


124 


111 


023472 


126 


105 


040 


023475 


122 


105 


107 


023500 


111 


123 


124 


023503 


105 


122 


000 


4173 023506 


124 


111 


115 


023511 


105 


104 


040 


023514 


117 


125 


124 


023517 


040 


111 


116 


023522 


040 


101 


103 


023525 


103 


105 


123 


023530 


123 


040 


124 


023533 


117 


040 


124 


023536 


110 


105 


040 


023541 


116 


101 


124 


023544 


111 


126 


105 


023547 


040 


122 


105 


023552 


107 


111 


123 


023555 


124 


105 


122 


023560 


000 






4174 023561 


102 


111 


124 


023564 


040 


067 


040 


023567 


111 


116 


040 


023572 


114 


124 


103 


023575 


040 


111 


123 


023600 


040 


116 


117 


023603 


124 


040 


124 


023606 


117 


107 


107 


023611 


114 


111 


116 


023614 


107 


040 


102 


023617 


105 


124 


127 


023622 


105 


105 


116 


023625 


040 


060 


040 



EM142: 



.ASCIZ /ERROR IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER/ 



EM143: 



.ASCIZ /TIMED OUT IN ACCESS TO THE NATIVE REGISTER/ 



.ASCIZ /BIT 7 IN LTC IS NOT TOGGLING BETWEEN 0 A^C) 1/ 



J9 
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SEQ 0113 



023630 


101 


116 


104 


023633 


040 


061 


000 


4175 023636 


124 


111 


115 


023641 


105 


117 


125 


023644 


124 


040 


111 


023647 


116 


040 


101 


023652 


103 


103 


105 


023655 


123 


123 


111 


023660 


116 


107 


040 


023663 


124 


110 


105 


023666 


040 


114 


113 


023671 


123 


040 


122 


023674 


105 


107 


111 


023677 


123 


124 


105 


023702 


122 


000 




4176 023704 


105 


122 


122 


023707 


117 


122 


040 


023712 


111 


116 


040 


023715 


123 


124 


125 


023720 


103 


113 


040 


023723 


101 


124 


040 


023726 


132 


105 


122 


023731 


117 


040 


102 


023734 


111 


124 


123 


023737 


040 


117 


116 


023742 


040 


115 


105 


023745 


122 


000 




4177 023747 


103 


117 


125 


023752 


114 


104 


040 


023755 


116 


117 


124 


023760 


040 


123 


105 


023763 


124 


040 


117 


023766 


116 


105 


040 


023771 


117 


106 


040 


023774 


124 


110 


105 


023777 


040 


122 


057 


024002 


127 


040 


102 


024005 


111 


124 


123 


024010 


040 


117 


116 


024013 


040 


124 


110 


024016 


105 


040 


115 


024021 


105 


122 


000 


4178 024024 


102 


111 


124 


024027 


123 


040 


060 


024032 


054 


062 


054 


024035 


061 


064 


054 


024040 


061 


065 


040 


024043 


117 


116 


040 


024046 


124 


110 


105 


024051 


040 


115 


105 


024054 


122 


040 


104 


024057 


111 


104 


040 


024062 


116 


117 


124 


024065 


040 


103 


114 


024070 


105 


101 


122 


024073 


040 


117 


116 


024076 


040 


122 


105 



•ASCIZ /TIMEOUT IN ACCESSING THE LKS REGISTER/ 



.ASCIZ /ERROR IN STUCK AT ZERO BITS ON MER/ 



.ASCIZ \COULD NOT SET ONE OF THE R/U BITS ON THE MER\ 



.ASCIZ /BITS 0.2.14.15 ON THE MER DID NOT CLEAR ON RESET/ 



<9 
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.ASCIZ /TIMEOUT IN ACCESSING THE MER REGISTER/ 



SCO 0114 



024101 


123 


105 


124 


024104 


000 






4179 024105 


124 


111 


115 


024110 


105 


117 


125 


024113 


124 


040 


111 


024116 


116 


040 


101 


024121 


103 


103 


105 


024124 


123 


123 


111 


024127 


116 


107 


040 


024132 


124 


110 


105 


024135 


040 


115 


105 


024140 


122 


040 


122 


024143 


105 


107 


111 


024146 


123 


124 


105 


024151 


122 


000 




4180 024153 


105 


122 


122 


024156 


117 


122 


040 


024161 


111 


116 


040 


024164 


124 


110 


105 


024167 


040 


104 


101 


024172 


124 


101 


040 


024175 


123 


110 


117 


024200 


122 


124 


123 


024203 


040 


101 


116 


024206 


104 


040 


123 


024211 


124 


125 


103 


024214 


113 


040 


101 


024217 


124 


040 


115 


024222 


105 


115 


117 


024225 


122 


131 


040 


024230 


124 


105 


123 


024233 


124 


000 




4181 024235 


120 


101 


122 


024240 


111 


124 


131 


024243 


040 


101 


102 


024246 


117 


122 


124 


024251 


040 


117 


103 


024254 


103 


125 


122 


024257 


105 


104 


040 


024262 


127 


111 


124 


024265 


110 


040 


120 


024270 


101 


122 


111 


024273 


124 


131 


040 


024276 


105 


122 


122 


024301 


117 


122 


040 


024304 


104 


111 


123 


024307 


101 


102 


114 


024312 


105 


104 


000 


4182 02431S 


120 


101 


122 


024S20 


111 


124 


131 


024S23 


040 


101 


102 


024326 


117 


122 


124 


024331 


040 


104 


111 


024334 


104 


040 


116 


J24337 


117 


124 


040 


024342 


117 


103 


103 


024345 


125 


122 


040 



.ASCIZ /ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST/ 



.ASCIZ /PARITY ABORT QCCURED WITH PARITY ERROR DISABLED/ 



.ASCIZ /PARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED/ 



L ^ 
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SEQ 0115 





1 P7 


111 
ill 


1 PA 




1 in 




1 PO 
Xcv 








111 

XXX 




1 P4 


IJX 








Xr c 


1 pp 
xcc 


wC~^v f 


117 


IP? 


040 




XVJ 


1 16 

XXv 


101 

X vX 


024375 


102 


114 


105 

X 




104 






4183 024402 


115 


105 


122 

XCC 


024405 


040 


104 


111 

XXX 


024410 


104 


116 


047 


024413 


124 


040 


110 

XXV 


024416 


101 


126 


105 

X V^ 


024421 


040 


103 


117 


024424 


122 


122 


105 


024427 


103 


124 


040 


024432 


101 


Iv."'* 


104 


024435 


122 


105 


123 


024440 


123 


040 


102 


024443 


111 


124 


123 


024446 


040 


061 


061 


024451 


055 


061 


067 


024454 


000 






4164 024455 


115 


10^ 


122 


024460 


040 


122 


105 


024463 


101 


104 


040 


024466 


105 


130 


124 


024471 


105 


116 


104 


024474 


105 


104 


040 


024477 


101 


104 


104 


024502 


122 


105 


123 


024505 


123 


040 


102 


024510 


111 


124 


123 


024513 


040 


110 


101 


024516 


123 


040 


106 


024521 


101 


111 


114 


024524 


105 


104 


000 


4185 024527 


105 


122 


122 


024532 


117 


122 


040 


024535 


111 


116 


040 


024540 


124 


110 


105 

X V^ 


024543 


040 


121 


125 


024546 


111 


103 


113 

XX «^ 


024551 


040 


126 


105 


024554 


122 


111 


106 


024557 


131 


040 


115 

X X ^ 


024562 


105 


115 


117 


024565 


122 


131 


040 


024570 


124 


105 


123 


024573 


124 


000 




4186 024575 


105 


122 


122 


024600 


117 


122 


040 


024603 


111 


116 


040 


024606 


122 


103 


123 


024611 


122 


040 


074 


024614 


066 


076 


000 



•ASCIZ /MER DIDN'T HAVE CORRECT ADDRESS BITS 11 17/ 



.ASCIZ /MER READ EXTENDED ADDRESS BITS HAS FAILED/ 



, ASCIZ /ERROR IN THE QUICK VERIFY MEMORY TEST/ 



.ASCIZ /ERROR IN RCSR <6>/ 



1^ 



COKOOeO KOJll -OA CLUSTER DIAG. MACRO V05. 03 Uednesday 09 Apr 86 09:43 Page 38-15 
GLOBAL ERROR ^€SSAG£S 

M161: -ASCIZ /NO XMIT INTERRUPTS HAVE OCCUREO/ 



SEO 0116 



4187 024617 


116 


117 


040 


024622 


130 


115 


111 


024625 


124 


040 


111 


024630 


116 


124 


105 


024633 


122 


122 


125 


024636 


120 


124 


123 


024641 


040 


110 


101 


024644 


126 


105 


040 


024647 


117 


103 


103 


024652 


125 


122 


105 


024655 


104 


000 




4188 024657 


116 


117 


040 


024662 


122 


105 


103 


024665 


111 


105 


126 


024670 


105 


040 


111 


024673 


116 


124 


105 


024676 


122 


122 


125 


024701 


120 


124 


123 


024704 


040 


110 


101 


024707 


126 


105 


040 


024712 


117 


103 


103 


024715 


125 


122 


105 


024720 


104 


000 




4189 024722 


125 


116 


105 


024725 


130 


120 


105 


024730 


103 


124 


105 


024733 


104 


040 


120 


024736 


101 


122 


111 


024741 


124 


131 


040 


024744 


101 


102 


117 


024747 


122 


124 


040 


024752 


110 


101 


123 


024755 


040 


117 


103 


024760 


103 


125 


122 


024763 


105 


104 


000 


4190 024766 


115 


105 


122 


024771 


040 


104 


111 


024774 


104 


116 


047 


024777 


124 


040 


110 


025002 


101 


126 


105 


025005 


040 


103 


117 


025010 


122 


122 


105 


025013 


103 


124 


040 


025016 


iOl 


104 


104 


025021 


122 


105 


123 


025024 


123 


040 


102 


025027 


111 


124 


123 


025032 


043 


040 


060 


025035 


040 


101 


116 


025040 


104 


040 


061 


025043 


065 


000 




4191 025045 


124 


117 


117 


025050 


040 


115 


101 


025053 


116 


131 


040 


025056 


124 


122 


101 


025061 


116 


123 


111 


025064 


126 


105 


122 



•ASCIZ /NO RECIEVE INTERRUPTS HAVE OCCUREO/ 



.ASCIZ /UNEXPECTED PARITY ABORT HAS OCCUREO/ 



.ASCIZ /MER DIDN'T HAVE CORRECT ADDRESS BITS* 0 AND 15/ 



.ASCIZ /TOO MANY TRANSIVER INTERRUPTS HAPPENED/ 



N9 
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025067 


040 


111 


116 


025072 


124 


105 


122 


025075 


122 


125 


120 


025100 


124 


123 


040 


025103 


110 


101 


120 


025106 


120 


105 


116 


025111 


105 


104 


000 


4192 025114 


124 


117 


117 


025117 


040 


115 


101 


025122 


116 


131 


040 


025125 


122 


105 


103 


025130 


105 


111 


126 


025133 


105 


122 


040 


025136 


111 


116 


124 


025141 


105 


122 


122 


025144 


125 


120 


124 


025147 


123 


040 


110 


025152 


101 


120 


120 


025155 


105 


116 


105 


025160 


104 


000 




4193 025162 


105 


122 


122 


025165 


117 


122 


040 


025170 


111 


116 


Ail A 

040 


025173 


122 


105 


101 


025176 


104 


131 


040 


025201 


102 


111 


124 


025204 


040 


117 


4 A£ 

106 


025207 


040 


4 AV 

103 


12^ 


025212 


122 


000 




4194 025214 


116 


117 


A4 A 

040 


025217 


103 


« i A 

110 


4 A 4 

101 


025222 


122 


4 A 4 

101 


103 


025225 


124 


105 


122 


025230 


040 


122 


4 AC 

105 


025233 


103 


• AC 

105 


4 4 4 

111 


025236 


126 


4 AC 

105 


104 


025241 


000 






4195 025242 


127 


122 


4 4 "V 

117 


025245 


116 


4 A"? 

107 


A4 A 

040 


025250 


103 


4 4 A 

110 


4 A 4 

101 


025253 


122 


4 A 4 

101 


4 AV 

103 


025256 


124 


105 


122 


025261 


040 


122 


4 AC 

105 


025264 


103 


4 AC 

105 


111 


025267 


126 


105 


104 


025272 


000 






41% 025273 


122 


117 


115 




WO 


123 


111 

111 


025301 


132 


105 


040 


025304 


111 


123 


040 


025307 


132 


105 


122 


025312 


117 


000 




4197 








4198 025314 


040 


124 


105 


025317 


123 


124 


Oil 


025322 


105 


122 


122 


025325 


117 


122 


015 



.ASCIZ /TOO MANY RECEIVFR INTERRUPTS HAPPENED/ 



.asciz /ERROR IN READY BIT OF CSR/ 



.asciz /NO CHARACTER RECEIVE J/ 



.asciz /WRONG CHARACTER RECEIVED/ 



.asciz /ROM SIZE IS ZERO/ 



.ASCII / TEST ERR0R/<15><12> 
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UlC 










040 




043 




J3 




040 


IPO 








000 








1*40 




105 

XVw 








xc** 


Oil 




025547 


105 


122 

Xbb 


122 

XbK 




025352 


117 


122 

Xbb 


Oil 

VX X 




025355 


105 


130 


120 

XbV 




025360 


103 


124 


105 




025363 


104 


Oil 


122 




025366 


105 


103 


105 




025371 


111 


126 


105 




025374 


104 


015 


012 




4201 025377 


040 


040 


043 




025402 


Oil 


040 


120 




025405 


103 


Oil 


040 




025410 


104 


101 


124 




025413 


101 


040 


040 




025416 


040 


040 


040 




025421 


104 


101 


124 




025424 


101 


000 






4202 025426 


040 


124 


105 


0H5: 


025431 


123 


124 


Oil 




025434 


105 


122 


122 




025437 


117 


122 


Oil 




025442 


110 


111 


124 




025445 


115 


111 


123 




025450 


Oil 


104 


101 




025453 


124 


101 


040 




025456 


111 


116 


Oil 




025461 


104 


101 


124 




025464 


101 


040 


111 




025467 


116 


015 


012 




4203 025472 


040 


040 


043 




025475 


Oil 


040 


120 




025500 


103 


Oil 


040 




025503 


122 


105 


107 




025506 


056 


Oil 


103 




025511 


101 


103 


110 




025514 


105 


Oil 


115 




025517 


105 


115 


117 




025522 


122 


131 


000 




4204 025525 


040 


124 


105 


DH7: 


025530 


123 


124 


Oil 




025533 


105 


122 


122 




025536 


117 


122 


Oil 




025541 


101 


104 


104 




025544 


122 


105 


123 




025547 


123 


Oil 


115 




025552 


123 


105 


122 




025555 


015 


012 






4205 025557 


040 


040 


043 




025562 


Oil 


040 


120 




025565 


103 


Oil 


101 




025570 


103 


103 


105 




02f?73 


123 


123 


105 





.ASCIZ / # 



PC/ 



.ASCII / TEST ERROR EXPCTED RECEIVED/' 15><12> 



.ASCIZ / « 



PC 



DATA 



DATA/ 



.ASCII / TEST ERROR HITMIS DATA IN DA^A IN/<15><12> 



, ASCIZ / 0 



PC 



REG. CACHE MEMORY/ 



.ASCII / TEST ERROR ADDRESS MSER/<15><12> 



, ASCIZ / ♦ 



PC 



ACCESSED/ 



10 



COKCX)BO KOJll OA CLUSTER 01 AG. 
GLOeAL ERROR MESSAGES 



025576 


104 


000 






4?06 025600 


040 


124 


105 


DH24: 


025603 


123 


124 


Oil 




025606 


105 


122 


122 




025611 


117 


122 


Oil 




025614 


116 


125 


115 




025617 


102 


105 


122 




025622 


015 


012 






4207 025624 


040 


040 


043 




025627 


Oil 


040 


120 




025632 


103 


Oil 


117 




025635 


106 


040 


110 




025640 


111 


124 


123 




025643 


000 








4208 025644 


105 


122 


122 


DH27: 


025647 


117 


122 


Oil 




025652 


105 


122 


122 




025655 


117 


122 


Oil 




025660 


115 


123 


105 




025663 


122 


Oil 


110 




025666 


111 


124 


057 




025671 


115 


111 


123 




025674 


123 


015 


012 




4209 025677 


040 


040 


043 




025702 


Oil 


040 


120 




025705 


103 


000 






4210 025707 


040 


124 


105 


DH41: 


025712 


123 


124 


Oil 




025715 


105 


122 


122 




025720 


117 


122 


Oil 




025723 


111 


116 


123 




025726 


124 


122 


125 




025731 


103 


124 


111 




025734 


117 


116 


015 




025737 


012 








4211 025740 


040 


040 


043 




025743 


Oil 


040 


120 




025746 


103 


Oil 


040 




025751 


117 


120 


103 




025754 


117 


104 


105 




025757 


000 








4212 025760 


040 


124 


105 


0H43: 


025763 


123 


124 


Oil 




025766 


105 


122 


122 




025771 


117 


122 


Oil 




025774 


105 


130 


120 




025777 


105 


103 


124 




026002 


104 


Oil 


122 




026005 


105 


103 


105 




026010 


111 


126 


104 




026013 


Oil 


103 


101 




026016 


103 


110 


105 




026C21 


015 


012 






4213 026023 


040 


040 


043 




026026 


Oil 


040 


120 




026031 


103 


Oil 


040 




026034 


104 


101 


124 
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.ASCII / TEST ERROR NUMBER/<15><12> 



SCO 0119 



.ASCIZ / * PC OF HITS/ 



.ASCII \ERROR ERROR MSER HIT/MISS\<15><12> 



.ASCIZ / P PC/ 



.ASCII / TEST ERROR INSTRUCTI0N/<15><12> 



.ASCIZ / # PC OPCODE/ 



.ASCII / TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 



■ASCIZ / # PC DATA DATA LOCATION/ 



DIO 

COKDOBO KOJll-OA CLUSTER OIAG. 
GLOBAL ERROR MESSAGES 
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OPft037 


101 


Oil 


040 






104 


101 


124 






101 


oil 


114 




026050 


117 


103 


101 




026053 


124 


111 


117 




026056 


116 


000 






4214 026060 


040 


124 


105 


DH47: 


026063 


123 


124 


Oil 




026066 


105 


122 


122 




026071 


117 


122 


Oil 




026074 


101 


104 


104 




026077 


122 


105 


123 




026102 


123 


Oil 


101 




026105 


104 


104 


122 




026110 


105 


123 


123 




026113 


015 


012 






4215 02611*^ 


040 


040 


043 




026120 


Oil 


040 


120 




026123 


103 


Oil 


074 




0..'6126 


062 


061 


055 




C26131 


061 


066 


076 




026134 


Oil 


040 


074 




026137 


061 


065 


055 




026142 


060 


076 


000 




4216 026145 


040 


124 


105 


DH65: 


026150 


123 


124 


Oil 




026153 


105 


122 


122 




026156 


117 


122 


Oil 




026161 


120 


122 


111 




026164 


117 


122 


111 




026167 


124 


131 


015 




026172 


012 








4217 026173 


040 


040 


043 




026176 


Oil 


040 


120 




026201 


103 


Oil 


114 




026204 


105 


126 


105 




026207 


114 


000 






4218 026211 


040 


124 


105 


0H72: 


026214 


123 


124 


Oil 




026217 


105 


122 


122 




026222 


117 


122 


Oil 




026225 


101 


104 


104 




026230 


122 


105 


123 




026233 


123 


015 


012 




4219 026236 


040 


040 


043 




026241 


Oil 


040 


120 




026244 


103 


Oil 


106 




026247 


101 


111 


114 




026252 


105 


104 


000 




4220 026255 


040 


124 


105 


DH105: 


026260 


123 


124 


Oil 




026263 


105 


122 


122 




026266 


117 


122 


Oil 




026271 


122 


102 


125 




026274 


106 


015 


012 




4221 026277 


040 


040 


043 




026302 


Oil 


040 


120 





.ASCII / TEST ERROR ADDRESS ADDRESS/<15><12> 



.ASCIZ / # PC <21-16> <15-0>/ 



.ASCII / TEST ERROR PRI0RITY/<15><12> 



.ASCIZ / 9 PC LEVEL/ 



.ASCII / TEST ERROR ADDRESS/ < 15 >< 12 > 



.ASCIZ / # PC FAILED/ 



.ASCII / TEST ERROR RBUF/<15><12> 



.ASCIZ / • PC/ 



EiC 

COKOOBO KDJll-DA CLUSTER DIAG. MACRO V0S.03 
GLOBAL ERROR MESSAGES 



026305 


103 


000 






4222 026307 


040 


124 


105 


DH115 


026312 


123 


124 


Oil 




026315 


105 


12? 


122 




026320 


117 


122 


Oil 




026323 


115 


123 


105 




026326 


122 


Oil 


101 




026331 


104 


104 


122 




026334 


105 


123 


123 




026337 


015 


012 






4223 026341 


040 


040 


043 




026344 


Oil 


040 


120 




026347 


103 


040 


Oil 




026352 


Oil 


101 


103 




026355 


103 


105 


123 




026360 


123 


105 


104 




026363 


000 








4224 026364 


040 


124 


105 


DH134 


026367 


123 


124 


Oil 




026372 


105 


122 


122 




026375 


117 


122 


Oil 




026400 


Oil 


040 


040 




026403 


040 


104 


101 




026406 


124 


101 


040 




026411 


040 


120 


101 




026414 


122 


040 


040 




026417 


040 


126 


111 




026422 


122 


124 


125 




026425 


101 


114 


015 




026430 


012 








4225 026431 


040 


040 


043 




026434 


Oil 


040 


120 




026437 


103 


040 


Oil 




026442 


120 


101 


124 




026445 


124 


105 


122 




026450 


116 


040 


040 




026453 


040 


040 


122 




026456 


105 


101 


104 




026461 


040 


040 


040 




026464 


040 


040 


040 




026467 


040 


040 


101 




026472 


104 


104 


122 




026475 


105 


123 


123 




026500 


000 









4226 
4227 

4228 026502 001162 001116 000000 DTI: 

4229 026510 001162 001116 000001 DT4: 
026516 177746 000000 

4230 026522 001162 001116 000002 DT5: 
026530 000001 001124 000000 

4231 026536 001162 001116 001122 DT7: 
026544 177744 000000 

4232 026550 001162 001116 001124 DT14: 
026556 003166 000000 

4235 026562 001162 001116 001124 DT17: 

026570 004034 000000 
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SEQ 01^ 



.ASCII / TEST ERROR MSER ADDRESS/* 15><12> 



•ASCIZ / # PC ACCESSED/ 



.ASCII / TEST ERROR DATA PAR VIRTUAL/ <15>< 12 > 



.ASCIZ / * PC PATTERN READ ADDRESS/ 



• EVEN 

.WORD *TMP1.*ERRPC.0 

.UORD ♦TMP1.*ERRPC.R1.CCR,0 

.UORO ITMP1.»ERRPC.R2.R1.$GD0AT.0 

.UORD $TnPl.(ERRPC.$BDAOR.MSER.O 

.UORD $TMP1,(ERRPC.»GDDAT.TSTLOC.O 

.UORD $TMPl.$F'>RPC.»G00AT.REC0AT.O 



FIO 

C0K006O KOJil-DA CLUSTER DIAG. HACRO V05.03 



GLOBAL ERROR MESSAGES 







001 116 


O00003 






www 










00116? 


001116 


177744 


DT27' 






000000 
www 










001116 


001124 


DT35- 




177744 


www 








001162 


001116 


001126 

WA AfcW 


DT41: 


0P6fi36 


000000 

www 








4238 026640 


001162 

WA AWfc 


001116 


000001 

www A 


DT43: 


026646 


004034 


001122 

WWA Afcfc 


000000 

WW www 




4239 026654 


001162 


001116 


172354 


DT47: 


026662 


001122 


000000 






4240 026666 

^b^V VbWWWW 


001162 


001116 


000001 

Www* 


DT50: 


026674 


001122 


000000 






4241 026700 


001162 


001116 


001124 


DT51: 


026706 


177522 


000000 






4242 026712 


001162 


001116 


001124 


DT52: 


026720 


177520 


000000 






4243 026724 


001162 


001116 


001124 


DT64: 


026732 


002402 


000000 






4244 026736 


001162 


001116 


001124 


DT65: 


026744 


000000 








4245 026746 


001162 


001116 


001124 


DT75: 


026754 


001126 


000000 






424b 026760 


001162 


001116 


177562 


DT105 


026766 


000000 








4247 026770 


001162 


001116 


001126 


DT115 


026776 


172354 


001122 


000000 




4248 027004 


001162 


001122 


000000 


DT130 


4249 027012 


001162 


001116 


001124 


DT134 


027020 


001126 


172344 


001122 




027026 


000000 









I 
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SeQ 0122 



.UORD »TnPl.$ERRPC,R3.0 

.UORO $TMP1.IERRPC.HSER.R3.0 

.UORD $TnPl.$ERRPC.«GDOAT.HSER,0 

.UORO «THP1.«ERRPC.«BDDAT.0 

.UORD «TMP1 . «ERRPC . Rl , RECDAT . $BDADR . 0 

.WORD $THP1.$ERRPC.KIPAR6.$BDADR.0 

.UORD JTMP1.*ERRPC.R1.$BDADR.0 

.UORD ♦TMP1.*ERRPC,*GDDAT.PCR.0 

.UORD JTMPl.tERRPC.JGODAT.BCSR.O 

.UORD $TMP1.*ERRPC,*GDDAT,LKSFL.0 

.UORD *TMP1,»ERRPC.*GDDAT.0 

.UORD «TKP1 , $ERRPC. IGDDAT . «BDDAT .0 

.UORD . «TMP1.IERRPC.RBUF.0 

. UORD nriPl . $ERRPC . $BD0AT . KIPAR6. $6DA0R .0 

.UORD *THP1.«BDADR.0 ' 

.UORD '$TMP1, |ERRPC.$GDDAT. IB0DAT,KIPAR2.«B0ADR.O 



GIO 

COKDOBO KDJll-OA CLUSTER DIAG. MACRO V05.03 
MOOIPIED ERROR MESSAGE TYPEOUT ROUTINE 
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SEQ 0123 



4251 








4252 








4253 








4254 








4255 








4256 








4257 








4258 








4259 








4260 








4261 








4262 


027030 






4263 


027030 


005037 


001162 


4264 


027034 


113737 


001102 


4265 


027042 


104401 


001175 


4266 


027046 


010046 




4267 


027050 


005000 




4266 


027052 


1537rX) 


001114 


4269 


027056 


001004 




4270 








4271 


027060 


013746 


001116 


4272 








4273 


027064 


104402 




4274 


027066 


000426 




4275 


027070 


005300 




4276 


027072 


006300 




4277 


027074 


006300 




4278 


027076 


006300 




4279 


027100 


062700 


001324 


4280 


027104 


012037 


027114 


4281 


027110 


001404 




4282 


027112 


104401 




4283 


027114 


000000 




4284 


027116 


104401 


001175 


4285 


027122 


012037 


027132 


4286 


027126 


001404 




4287 


027130 


104401 




4288 


027132 


000000 




4289 


027134 


104401 


001175 


4290 


027140 


011000 




4291 


027142 


001004 




4292 


027144 


012600 




4293 


027146 


104401 


001175 


4294 


027152 


000207 




4295 


027154 






4296 


027154 


021027 


000005 


4297 


027160 


101021 




4298 


027162 


042737 


000700 


4299 


027170 


011037 


001160 


4300 


027174 


000337 


001160 


4301 


027200 


006237 


001160 


4302 


027204 


006237 


001160 


4303 


027210 


053737 


001160 


4304 








4305 


027216 


010046 




4306 


027220 


005720 




4307 


027222 


000401 





SBTTL MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 

♦THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE UHICH 
♦ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (lERRTB). 
♦AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
♦ 

♦THE ONLY DIFFERENCE BETWEEN THIS ROUTINE AND THE ORIGINAL "»ERRTYP" FROM 
♦SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE REGISTERS TO THIS 
♦ROUTINE. THE GENERAL PURPOSE REGISTERS USED ARE TO BE SPECIFIED IN DT« 
♦FORMAT, RO SHOULD NOT BE USED. 



ERTYPE: 





CLR 


$TMP1 






MOVB 


♦ TSTNM, HMPl 






TYPE 


. ♦C'^LF 






MOV 


RO , V SP ) 






CLR 


RO 






nit t^n 

BISB 


3#»ITEMB,R0 






BNE 


I* 






nOv 


♦ERkPC , KbP ) 






1 YrOL 








BR 


6» 




1* : 




DA 

HO 






ACl 

ASL 


RO 






ASL 


RO 






ACl 

AbL 


RO 






Ann 
AUU 


#$ERRTB.RO 


• i 




nuv 


(R0)«.2$ 


• 1 




BEu 


3$ 


■ 1 




TYPE 






2»: 


.UORD 


0 


• 9 




TYPE 


. *CRLF 


s i 


3$ : 


MOV 


(R0)».4* 


! i 






5* 


> 1 




TYPE 




1 1 


4$: 


.UORD 


0 


• ■ 




TYPE 


. iCRLF 


• 1 


5$: 


MOV 


(RO),RO 


: I 




BNE 


7* 




6$: 


MOV 


(SP)*.RO 


S ! 




TYPE 


, »CRLF 


: s 




RTS 


PC 


• i 


7$: 










CMP 


(R0).#5 


* 1 




BHI 


9$ Si 




BIC 


#BIT8!BIT7!BIT6.8$ 




MOV 


(RO).$TMPO 


• i 




SUAB 


♦ TMPO 


■ \ 




ASR 


$TMPO 


I i 




ASR 


$TMPO 






BIS 


$TMP0,8* 


• i 


8*: 


MOV 


RO. CSP) 


t i 
t 1 




TST 


(RO)* 


• 1 




BR 


10* 


■ 1 



JUST CLEAR IT 

STORE TEST NUMBER 

'CARRIAGE RETURN" L "LINE FEED" 

SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE $ERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE- OCTAL ASCIKALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT UILL 
UORK FOR THE ERROR TABLE 



FORM TABLE POINTER 

PICKUP 'ERROR MESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

ERROR MESSAGE POINTER GOES HERE 
"CARRIAGE RETURN" L "LINE FEED" 
PICKUP "DATA HEADER" POINTER 
SKIP TYPEOUT IF 0 
TYPE THE "DATA HEADER" 
"DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" L "LINE FEED' 
PICKUP "DATA TABLE" POINTER 



"CARRIAGE RETURN" £ "LINE FEED' 



CLEAR BITS FOR SOURCE REGISTER 



SET BITS IN MOV INSTRUCTION 
ACCORDING TO REGISTER NUMBER 
MOVE CONTEXT OF REGISTER TO STACK 
ADVANCE POINTER 
GO TYPE 



HiO 

COKOOBO KOJll-DA CLUSTER DIAG. MACRO V05.03 
MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
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SEQ 0124 



4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 



027224 
027226 
027230 
027232 
027234 
027240 
027242 



027246 
027252 
027256 
027262 
027266 
027272 
027276 
027302 
027306 
027312 
027316 
027322 
027326 
027332 
027336 
027342 
027346 
027352 
027356 
027362 
027366 
027372 
027376 
027402 
027406 



013046 
104402 
005710 
001744 
104401 
000745 
040 



012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
000207 



027242 
040 



172240 
027410 
172260 
027410 
172340 
027410 
172360 
027410 
177640 
027410 
177660 
027410 
177600 
027440 
177620 
027440 
172300 
027440 
172320 
027440 
172200 
027440 
172220 
027440 



9$: 
10$: 



000 11$: 



MOV 


a(R0)». (SP) 


!sIF NOT GPR. SAVE a(RO)* FOR TYPEOUT 


TYPOC 




sjGO TYPE- OCTAL ASCI (ALL DIGITS) 


TST 


(RO) 


;;IS THERE ANOTHER NUMBER? 


BEQ 


6$ 


siBR IF NO 


TYPE 


.11* 


;;TYPE TW0(2) SPACES 


BR 


-1% 




.ASCIZ 


/ / 


!!TW0(2) SPACES 


.EVEN 





.SBTTL GLOBAL SUBROUTINES SECTION 



s THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 



FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 



INPUTS: NONE 
OUTPUTS: NONE 

SL60RDINATE ROUTINES USED: LOAD PARS 

LOAD PDRS 



FUNCTIONAL SIDE EFFECTS: NONE 



CALLING SEQUENCE: 



JSR 



PC.INITMM 



INITMM: MOV 


#1 72240. Rl 


:6ASE 


ADDRESS 


OF 


SIPARS 


JSR 


PC. LDPARS 










MOV 


*172260.R1 


:BASE 


ADDRESS 


OF 


SDPARS 


JSR 


PC . LDPARS 










MOV 


«1 72340. Rl 


:BASE 


ADDRESS 


OF 


KIPARS 


JSR 


PC. LDPARS 










MOV 


*1 72360. Rl 


jBASE 


ADDRESS 


OF 


KDPARS 


JSR 


PC. LDPARS 










MOV 


0177640. Rl 


:BASE 


ADDRESS 


OF 


UIPARS 


JSR 


PC. LDPARS 










MOV 


0177660. Rl 


:BASE 


ADDRESS 


OF 


UOPARS 


JSR 


PC. LDPARS 










MOV 


0177600. Rl 


iBASE 


ADDRESS 


OF 


UIPORS 


JSR 


PC. LDPORS 










MOV 


0177620. Rl 


:BASE 


ADDRESS 


OF 


UDPORS 


JSR 


PC. LOPDRS 










MOV 


0172300. Rl 


:BASE 


ADDRESS 


OF 


KIPORS 


JSR 


PC. LDPDRS 










MOV 


0172320, Rl 


iBASE 


ADDRESS 


OF 


KDPORS 


JSR 


PC. LDPORS 










MOV 


0172200. Rl 


iBASE 


ADDRESS 


OF 


SIPORS 


JSR 


PC. LDPORS 








SOPORS 


MOV 


0172220. Rl 


iBASE 


ADDRESS 


OF 


JSR 


PC. LDPDRS 










RTS 


PC 


i RETURN 







110 
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4366 

4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 

4386 027410 

4387 027414 

4388 027416 

4389 027420 

4390 027424 

4391 027426 

4392 027432 

4393 027436 
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FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS) 
THIS ROUTINE UILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS 
SUPPLIED BY THE CALLING ROUTINE. PARS 0 5 UILL BE MAPPED FROM 
ADDRESS 0 TO ADDRESS 13777 7 (0-24K). PAR 6 UILL BE MAPPED FROM 
AODRfSS 200000 TO 217777 AND PAR 7 UILL BE MAPPED TO THE I/O 
PAGE. 

INPUTS: 

Rl CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 
OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: NONE 

» 

FUNCTIONAL SIDE EFFECTS: NONE 



SEO 01 2*^, 



012702 000006 

005003 

010321 

062703 G00200 
077204 

012721 002000 
012711 177600 
000207 



CALLING SEQUENCE: 



LDPARS: MOV 06. 

CLR R3 

1$: MOV R3. 

ADD «200, 

SOB R2. 

MOV #2000, 

MOV #177600. (Rl) 

RTS PC 



JSR 
R2 

(Rl)^ 
R3 
U 

(Rl)< 



PC, LDPARS 



LET LOOP COUNTER COUNT FIRST 6 PARS 
INITIALIZE INDEX VALUE 
LOAD PARS 

INDEX IN 4K INCREMENTS 
LOAD FIRST SIX PARS 
LET PAR6 MAP TO 200000 
LET PAR7 MAP TO I/O PAGE 
RETURN 



JIC 

COKOOeO KDJll DA CLUSTER 01 AG. 
GLOBAL SUBROUTINES SECTION 



4395 

43% 

4397 

4398 

4399 

•*400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 
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i FUNCTIONAL DESCRIPTION: 

! SUBROUTINE TO INITIALIZE ALL THE MMU PAGE OECRIPTOR REGISTERS (PDRS-. 
; THIS ROUTINE UILL INITIALIZE 8 PDRS STARTING AT A BASt ADDRESS 

: SUPPLIED BY THE CALLING ROUTINE. PDRS 0 5 WILL BE INITIALIZED TO 

; 4K READ/URITE BYPASS AND PDRS 6 AND 7 WILL BE INITIALIZED TO 

4K READ/URITE NO BYPASS. 
: NOTE; THERE IS NO NEED TO BYPASS ON I/O PAGE REFERENCES BECAUSE 

: THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 

! INPUTS: 

s Rl CONTAINS THE BASE ADDRESS OF TK NEXT 8 PDRS TO BE INITIALIZED 

: OUTPUTS: NONE 

: SUBORDINATE ROUTINES USED: NONE 

; FUNCTIONAL SIDE EFFECTS: NONE 



SfQ 01?f. 



: CALLING SEQUENCE: 



JSR 



PC.LDPARS 



027440 012702 000006 

027444 012721 177406 

027450 077203 

027452 012721 077406 

027456 012711 077406 

027462 000207 



LDPDRS: MOV 
li: MOV 
SOB 
MOV 
MOV 
RTS 



06. R2 
#177406. (Rl)* 
R2. 1» 
#77406. CRD* 
#77406. (Rl) 
PC 



LET LOOP COUNTER COUNT FIRST 6 PARS 

LOAD PDRS UITH 4K READ/URITE BYPASS 

LOAD FIRST SIX PDRS 

LET PAR6 BE 4K READ/URITE NO BYPASS 

LET PAR7 BE 4K READ/URITE NO BYPASS ALSO 

RETURN 



KIO 

COKDOeO KOJll 
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GLOOAL SUBROUTINES SECTION 

4423 
4424 

4425 
4426 
4427 
4420 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 

4442 027464 011637 001122 

4443 027470 032737 000100 177744 

4444 027476 001401 

4445 027500 104004 

4446 027502 
E PARITY ERROR 

4447 
4448 
4449 

4450 027502 032737 000040 177744 

4451 027510 001401 

4452 027512 104004 

4453 027514 005037 177744 

4454 027520 000002 

4455 027522 005237 002402 

4456 027526 000002 
4457 

4458 027530 

4459 027530 022757 000003 002404 

4460 027536 001402 

4461 027540 005237 002404 

4462 027544 000002 
4463 

4464 
4465 
4466 
4467 
4468 

4469 027546 032737 

4470 027554 001401 

4471 027556 000207 
4472 

4473 
4474 

4475 027560 013701 000004 

4476 027564 012737 027740 000004 

4477 027572 01273-' 000S40 000006 

4478 027600 005037 001160 

4479 027604 012702 170000 



seg 0127 



FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS. 

INPUTS: 

MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 
OUTPUTS; NONE 

SUBORDINATE ROUTINES USED: NONE 

FUNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: CALLED BY PARITY ABORT 

MOV a#114, SLOCOO {SAVE CONTENTS OF PARITY ABORT VECTOR 
MOV WSPAR, 8#114 jLET VECTOR POINT TO PARITY ABORT ROUTINE 



(CACHE PARITY ERROR OCCURS) 



RAMPAR: 



LKSINT ; 



clkcnt: 
100$: 



101 i: 



MOV 
BIT 
BEQ 
ERROR 



BIT 

BEQ 

ERROR 

3$: 

RTI 

INC 

RTI 



cmp 
beq 

inc 
rti 



(SP).*BDADR 
08IT06. MSER 
1* 
*4 



#6IT05. MSER 
*4 

CLR MSER 



STOR ADOESS TRAPPED 

IF LOU BYTE PARITY ERROR 

THEN 

ERROR 

BIT 4WIT07. MSER 



i 



BEQ 
ERROR 



2% 
• 4 



:IF HIGH BYT 

sTHEN 
J ERROR 



LKSFL 



#3,lkcnt 

101$ 

Ikent 



IF TAG PARITY ERROR 

THEN 

ERROR 

; INITIALIZE MSER AFTER ERROR 

J RETURN 

! INCREMENT FLAG 



SBTTL Q226E SIZE ROUTINE 

THIS ROUTINE WILL AUTOSIZE FOR UP TO TUO Q22 BUS EXERCISERS. IF NONE 
FOUND LOCATIONS CSRl AND CSR12 WILL BE LEFT ZEROES. THIS ROUTINE WILL 
ONLY RUN IN NOT UFO MODE, 



001000 177750 Q22SIZ: 



OIT <«IT09.MAIREG 
BEQ 1$ 
RTS PC 



PREPARE TO DO SIZING 

II: MOV ERRVEC.Rl 

MOV #7».ERRVEC 

MOV ♦340.ERRVEC*2 

CLR »TMP0 

MOV #1 70000. R2 



UNIBUS SYSTEM? 

IF NOT. ADVANCE TO ROUTINE 

OTHERWISE. RETURN 



STORE TIMEOUT VECTOR 
POINT NEW TO PROGRAM 
AT PRIORITY 7 
CLEAR Q22BE COUNTER 
FIRST POSSIBLE ADDRESS 



T 



LIO 

COKDOeO KDJll-DA CLUSTER DIAG. 
Q22BE SIZE ROUTINE 

4480 027610 

4481 027614 
4482 
4483 
4484 

4485 027616 

4486 027622 

4487 027626 
4488 
4489 
4490 

4491 027630 

4492 027634 

4493 027636 

4494 027642 

4495 027646 

4496 027654 

4497 027656 

4498 027662 

4499 027666 

4500 027670 

4501 027674 

4502 0276 6 

4503 027702 

4504 027704 

4505 027710 

4506 027714 

4507 027722 

4508 027726 

4509 027734 

4510 027736 
4511 
4512 
4513 

4514 027740 

4515 027742 

4516 027744 

4517 027750 

4518 027752 

4519 027756 

4520 027760 

4521 027764 

4522 027770 
4523 

4524 027772 012 015 
027775 062 062 
030000 105 040 
030003 123 105 
030006 040 104 
030011 122 111 
030014 107 040 
030017 105 123 
030022 111 116 
030025 000 

4525 
4526 
4527 
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SFO 0128 



012703 


000510 






HOV 


#510. R3 {VECTOR FOR IT 


000404 








BR 


3$ ; 


TRY THOSE VAl UP"<; 








! NGU DO ACTUAL 


SIZING 




062702 


000020 




• 

2* : 


ADO 


#20. R2 ; 


GET CSR FOR NEXT Q2^E 


062703 


000004 






ADO 


#4,R3 i 


GET VECTOR FOR NEXT ONE 


005712 






3» : 


TST 


(R2) J 


TRY TO ACCESS CSR 










NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS 




005737 


001160 




• 


TST 


iTMPO 


FIRST Q226E FCXJND? 


001010 








BNE 


4$ 


IF SECOND. BRANCH 


012705 


002354 






MOV 


#CSR1,R5 


START UITH CSRl FOR 1ST 


010237 


002352 






MOV 


R2.SIMG0A 


SIMULTANEOUS GO 


062737 


000016 


002352 




ADD 


#16,SIMG0A 


ADDRESS 


000402 








BR 


5$ 


BRANCH TO INITIALISE 


012705 


002364 




4$: 


MOV 


#CSR12.R5 


START UITH CSR12 FOR 2ND 


012704 


000004 




5$: 


MOV 


#4.R4 


INITIALISE 5 REGISTERS 


010215 








MOV 


R2,(R5) 


INITIALISE CSRl 


011565 


000002 




Of : 


MOV 


(R5).2{R5) 


STORE TO NEXT ONE 


UUJ 'CD 








TST 


(R5)* 


GET NEXT ADDRESS 


062715 


000002 






ADD 


#2,{R5) 


GET ADDRESS, POINT NEXT 










SOB 


R4.6$ 


DC FOR NEXT 4 REGISTERS 


010365 


000002 






MOV 


R3.2(R5) 


.STORE INTERRUPT VECTOR 


010365 


000004 






MOV 


R3.4(R5) 


,AND PRIORITY 


062765 


000002 


000004 




ADD 


#2,4(R5) 




005237 


001160 






INC 


*TMPO 


COUNT Q22BE'S 


022737 


000002 


001160 




CMP 


#2,nMP0 


TUO FOUND? 


001406 








BEQ 


9* 


IF SO. STOP SIZING 


000402 








BR 


8$ 


; OTHERWISE, CONTINUE SIZING 








.' ON 


TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 




005726 






7$: 


TST 


(SP)* 


.RESTORE STACK FROM 


005726 








TST 


(SP)t 


•TIMEOUT 


022702 


170160 




8$: 


CMP 


#170160. R2 


AT THE LAST POSSIBLE? 


001322 








BNE 


2* 


IF NOT. BRANCH 


005737 


002334 




9$: 


TST 


CSRl 


!l FOUND? 


001402 








BEQ 


10$ 


IF NONE. BRANCH 


104401 


027772 






TYPE 


.0N0Q22 


•TYPE FOUND 


010137 


000004 




10$: 


MOV 


Rl.ERRVEC 


.RESTORE TIMEOUT VECTOR 


000207 








RTS 


PC 


! RETURN 



121 
102 
125 
104 
125 
116 
124 
124 
107 



0N0Q22: .ASCIZ <12><15>/Q22BE USED DURING TESTING/ 



.EVEN 

.SBTTL Q22BE INTERRUPT INITIALISE ROUTINE 

;THIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (R0)» 



T 
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Qc'2BE INTERRUPT INITIALISE ROUTINE 



SEQ 0129 



4547 
4548 



4528 
4529 
4530 

4531 030026 

4532 030030 

4533 030034 

4534 030040 

4535 030044 
4536 

4537 
4538 
4539 
4540 
4541 
4542 

4543 030046 

4544 030054 

4545 030056 

4546 030060 
030066 
030070 

4549 030076 

4550 030104 

4551 030112 

4552 030120 

4553 030124 

4554 030126 
4555 

4556 
4557 
4558 
4559 

4560 030130 

4561 030136 

4562 030140 

4563 030142 

4564 030150 

4565 030156 

4566 030164 

4567 030166 
4568 

4569 030174 

4570 030202 

4571 030210 

4572 030214 

4573 030216 
4574 

4575 
4576 

4577 030220 

4578 030224 

4579 030226 
4580 

4582 
4583 
4584 
4585 



005013 
052710 
011063 
042710 
000207 



012777 
005700 
001404 
012777 
000414 
012777 
012777 
012777 
012777 
105777 
100375 
000207 



012777 
005700 
001412 
012777 
012777 
012777 
000411 
012777 

012777 
012777 
105777 
100375 
000207 



011637 
104041 
000002 



000001 
000002 
000001 



012525 152270 



001001 152250 



001601 
002740 
177777 
000001 
152212 



152236 
152234 
152230 
152216 



001507 
177770 
001001 



152164 
152164 
152152 



177777 
000001 
152122 



001122 



152140 
152126 



:AT ThC STARTING ADDRESS IN R3. 
;BY CLEARING GO. 



THE TEST HAVE TO SET ACTUAL DONE BIT 



Q22INT: CLR 
BIS 
MOV 
BIC 
RTS 



(R3) 

*BIT00.(R0) 
(R0).2(R3) 
OBITOO.CRO) 
PC 



CLEAR TRANSFER TfPE IN CSRl 
ZERO DONE 

SET PRIORITY IN CSR2 
PREPARE TO SET DONE 



.SBTTL DMATRN DATO CYCLE THRU Q22BE 
THIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE FIRST 
FOUND Q22BE STARTING AT LOCATION SCSRl. RO HAS 0 IF ONLY 1 TRANSFER IS 
TO BE PERFORMED. OTHERWISE 16 BLOCK MODE TRANSFERS ARE TO BE PFRFORMED. 
IN THE LATTER CASE ADDRESS AI>IO WORD COUNT HAS TO BE LOADED BEFORE. 



DMATRN: 


MOV 


*12525,aDATA 


DATA USED 




TST 


RO 


00 1 UORD? 




BEQ 


1* 


IF YES, BRANCH 




MOV 


*6IT09!BITOO.aCSR2 


BLOCK MODE, GO 




BR 


2* 


BRANCH TO DO IT 


1$: 


MOV 


#1601.aCSRl 


RESET LATENCY COUNT, DATO 




MOV 


OTEMP.aSA 


LOAD DMA ADDRESS 




MOV 


*177777,aUC 


00 1 UORD 




MOV 


*BIT0O.aCSR2 


DO IT 


21: 


TSTB 


SCSR2 


DMA DONE? 




BPL 


2* 


WAIT TILL DONE 


3$: 


RTS 


PC 


RETURN FROM SUBROUTINE 



.SBTTL DMARD DATI THRU Q22BE 

J THIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE 
; TRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 



002740 152202 DMARD: 



001407 152140 14: 



2$: 
31: 

TOUT; 



MOV *TEMP.cJBA 

TST RO 

BEQ 1* 

MOV #1507,aCSRl 

MOV #177770,aWC 

MOV «BIT09!BIT00.SCSR2 

BR 21 

MOV «1407.8CSR1 

MOV #177777. awe 

MOV «BIT0O,9CSR2 

TSTB aCSR2 

BPL 2» 

RTS PC 



MOV (SP).)BDADR 

ERROR ^41 

RTI 



LOAD DMA ADDRESS 

DO 1 UORD? 

IF YES. BRANCH 

16 OATIB 

00 8 UOPD 

BLOCK MODE GO 

GO CHECK 

RESET LATENCY COUNT. DATI 

LOAD NEW DATA TO DATA R. 

DO 1 UORD 

DO IT 

DMA DONE? 

WAIT TILL DONE 

RETURN FROM SUBROUTINE 



{STORE TRAPPED PC 
i UNEXPECTED TRAP 



MMU GLOBAL SUBROUTINES 



^, 

NIO 

COKOOeO KOJll DA CLUSTER DIAG. MACRO V05.03 Wednesday 09 Apr 86 09: 
DHARO DATI THRU Q22BE 



4586 








{ROUTINE TO 


INITIALIZE MEMORY 


4587 








mu: 






4588 050230 


010046 






MOV 


RO, (SP) 


4589 030232 


010146 








MOV 


Rl. (SP) 


4590 030234 


010246 








MOV 


R2, (SP) 


4591 030236 


012700 


177600 






MOV 


0177600.R0 


4592 030242 


004737 


030330 






JSR 


PC. PDR 


4593 030246 


004737 


030352 






JSR 


PC. PAR 


4594 030252 


004737 


030352 






JSR 


PC. PAR 


4595 030256 


012700 


172200 






MOV 


#1 72200.ro 


4596 030262 


004737 


030330 






JSR 


PC, PDR 


4597 030266 


004737 


030352 






JSR 


PC. PAR 


4598 030272 


004737 


030352 






JSR 


PC. PAR 


4599 030276 


004737 


030330 






JSR 


PC, PDR 


4600 030302 


004737 


030352 






JSR 


PC. PAR 


4601 030306 


004737 


030352 






JSR 


PC, PAR 


4602 030312 


012737 


000027 


172516 




MOV 


#27,3*172516 
(SP)».R2 


4603 030320 


012602 








MOV 


4604 030322 


012601 








MOV 


(SP)*.R1 


4605 030324 


012600 








MOV 


(SP)»,RO 


4606 030326 


000207 








RTS 


PC 


4607 














460e 








{ROUTINE TO 


INITIALIZE PDR'S 


4609 














4610 030330 


005002 






PDR: 


CLR 


R2 


4611 030332 


012720 


077406 




PDRl: 


MOV 


#77406. (R0)» 


4612 030336 


062702 


000001 






ADO 


#1.R2 


4613 030342 


022702 


000020 






CMP 


#16. ,R2 


4614 030346 


001371 








BNE 


PORl 


4615 030350 


000207 








RTS 


PC 


4616 














4617 








{ROUTINE TO 


INITIALIZE PAR'S 


4616 














4619 030352 


005001 






PAR: 


CLR 


Rl 


4620 030354 


010120 






PARI: 


MOV 


R1,(R0)* 


4621 030356 


062701 


000200 






ADD 


#200. Rl 


4622 030362 


022701 


001600 






CMP 


#1600. Rl 


4623 030366 


001372 








BNE 


PARI 


4624 030370 


012720 


177600 






MOV 


#177600, (R0)» 


4625 030374 


000207 








RTS 


PC 


4626 














4627 








Itime 


OUT ROUTINE 


4628 














4629 030376 


005205 






ADDTRP 


: INC 


R5 


4630 030400 


000002 








RTI 




4631 














4632 








:MMU TRAP ROUTINE 


4633 














4634 030402 


023727 


003032 


000001 


MMUTRP 


: CMP 


FLAG.#1 


4635 030410 


001401 








BEQ 


1$ 


4636 0S0412 


104002 








ERROR *2 


4637 030414 


010046 






1$: 


MOV 


RO. (SP) 


4630 030416 


013700 


177776 






MOV 


a#177776.R0 


4639 030422 


072027 


177764 






ASH 


# 14. RO 


4640 030426 


020027 


000002 






CMP 


R0.»2 


4641 0S0432 


001001 








BNE 


OK 


4642 030434 


000411 








BR 


NOTOK 
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EQ 0130 



1ANAGEMENT 



SAVE CONTENTS OF REGISTERS 



INIT I AND D USER PDR S 
INIT I USER PAR'S 
INIT D USER PAR'S 

INIT I AND D SUP POR'S 
INIT I SUP PAR'S 
INIT D SUP PAR'S 
INIT I AND D KER PD" S 
INIT I KER PAR'S 
INIT D KER PAR'S 
INIT MMR3 
RESTORE REGISTERS 



RETURN 



INIT CNTR 
INIT PDR 
INCREMENT CNTR 
ARE UE DONE? 
BRANCH IF NOT 
RETURN 



SETUP TO INIT PAR 
INIT PAR 

GET READY FOR NEXT PAR 
REACHED A PAR7 
BRANCH IF NOT 
INIT PAR7 
RETURN 



{INCREMENT TIME OUT FLAG 
{RETURN 



{ARE UE EXPECTING AN ABORT 
{YES GO ON 
{NO GO TO ERROR 

{SAVE CONTENTS OF REG 0 
{SAVE A COPY OF PSU 
{LOOK AT BITS<15:14> 
{WAS PS<15;14>-10 
{NO GO ON 

{YES CHANGE BITS TO 00 
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jHARu OA 'I THRU a?2ee 



4643 

4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 



030436 
030442 
030446 
030452 
030456 
030460 
030464 
030472 
030500 
030506 
030512 
030516 
030520 



013700 
072027 
072027 
020027 
001002 
005066 
013737 
013737 
013737 
005037 
005037 
012600 
000002 



177776 OK: MOV 

000002 ASH 
177764 ASH 
000002 CMP 

BNE 

000004 NOTOK: CLR 

177572 003044 OKI: MQV 
177574 003046 MQV 
177576 003050 MQV 
177572 CLR 
003032 CLR 

MOV 
RTI 



a»177776.R0 

♦2,R0 

« 14, RO 

R0.#2 

OKI 

4(SP) 

a#l 77572. SAVMRO 
a#177574.SAVMRl 
cWl 77576, SAVMR2 
a#l 77572 
FLAG 
(SP)*,RO 



SAVE A COP f Of PSW 
LOOK AT BITS<15:12> 

WAS PS<13:12>-10 
NO GO ON 

CLEAR ILLEGAL MODE FFROM OLD PSW 

SAVE A COPY or MMRO 

SAVE A COPY OF MMRl 

SAVE A COPY OF MMR2 

CLEAR ABORT BITS AND TURN MMi. QFf 

CLEAR MMU ABORT FLAG 

RESTORE ORIGINAL CONSENTS OF REG 0 

RETURN 



CI. 

C0K006O KOJll OA CLL>STER OIAG. 
OflARO OATI THRU Q22BE 
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4659 

4660 030522 

4661 030524 

4662 030526 

4663 030530 
4664 

4665 
4666 

4667 030532 

4666 030534 

4669 030536 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 030540 

4691 030542 

4692 030544 

4693 030552 
4694 

4695 030556 

4696 030560 

4697 030562 

4698 030570 

4699 030574 

4700 030576 

4701 030600 

4702 030602 

4703 030604 

4704 030606 
4705 



012600 
012605 
104003 
000110 



000000 
000207 
000207 



S€Q 0132 



/PP COMMON SUBROUTINES 
JLDTRP: MOV (SP)*.R0 
MOV (5P).,R5 
ERROR *Z 
JMP (RO) 



TRPFLG; .WORD 0 
ERRFP: RTS R7 
ERR: RTS R7 



* SAVE PC 

sSAVE STATUS 'FC RESTORE STACK 
:GG BACK INLINE 



SUBROUTINE DATA VERFICATION 
CALLED BY JSR R7.DATVER 



INPUT; 



(R4) -EXPECTED DATA 
fRl)»RECEIVED DATA 



THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
EQUAL TO THE FOUR WORDS ADDRESSED BY (Rl). THE CONTENTS OF RA. AND Rl ARE NOT 
DISTURBED. 

LOCATION "COUNT" , IF NOT EOJAL TO 0 SIGNIFIES DATA ERROR 

IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED 

ARE SIMPLY CHECKED FOR ZEROS 



010446 






DATVFR: 


MOV 


R4. (SP) 


:SAVE R4 


010146 








MOV 


Rl.-CSP) 


. 5 AVE Rl 


012737 


000003 


003124 




MOV 


«. COUNT 


sSET UP ITERATION COUNT 


000137 


050570 






JMP 


DATl 


i 


010446 






DATVER: 


MOV 


R4.-(SP) 


;SAVE R4 


010146 








MOV 


Rl. (SP) 


•SAVE Rl 


012737 


000005 


003124 




MOV 


#5. COUNT 


isET UP ITERATION COUNT 


005337 


003124 




DATl: 


DEC 


COUNT 


001402 








BEQ 


2$ 


s BRANCH IF DONE 


022421 








CMP 


(R4)..(R1). 


s 


001773 








BEQ 


DATl 




012601 






2»: 


MOV 


(SP)-.Rl 


sRESTORE Rl 


012604 








MOV 


(SP)..R4 


■RESTORE R4 


000207 








RTS 


R7 


iGO BACK TO CALLING ROUTINE 



IF DATA ERROR, COUNT NE 0 



COKOOeO KOJll DA CLUSTER 01 AG. 
OMARD DATI THRU Q22BE 



470 

4708 

4709 

4710 

4711 

4712 

4713 

4714 030610 

4715 030610 

4716 030614 
4/17 030620 
4718 030622 
4719 

4720 030624 

4721 030632 
4722 

4723 030636 
4724 

4725 030642 
4726 

4727 030646 
4728 

4729 030652 

4730 030C54 

4731 030656 
4732 

4733 030660 

4734 030662 

4735 030664 

4736 030670 
4737 

4738 030674 
4739 
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s DELAY INTERRUPT TIMER 
t 

: This test 's called by the interrupt receiver and tranamitter 



OELAY: 



013746 
013746 
010046 
010146 


000004 
000006 




MOV 
MOV 
MOV 
MOV 


3*4. (SP) 
3*6, -(SP) 
RO, (SP) 
Rl. (SP) 


jSAVE 

; OLD 

s STACK 

; AND REGS 


012737 
106737 


030652 000004 
000006 




MOV 
MFPS 


«2».9«4 
3*6 


sSET TRAP 

;PUT PSU ON PS / SAME PRIORITY 


012700 


000001 




MOV 


*1. ,R0 


;SET OUTER LOOP COUNT 


012701 


011610 


3*: 


MOV 


*5000. .Rl 


:SET INNER LOOP 1/200TH 


005737 


160000 


1$: 


TST 


3*160000 


: TAKES ABOUT lOu SEC 


022626 
077104 
077007 




2»: 


CMP 
SOB 

soe 


(SP)».(SP)« 

Rl,l$ 

RO.3^ 


: CLEAN UP STACK 
;D0 INNER LOOP 
;D0 OUTER LOOP 


012601 
012600 
012637 
012637 


000006 
000004 




MOV 
MOV 
MOV 
MOV 


(SP).,R1 
(SP)*.RO 
(SP)«.a*6 

(SP)«.a*4 


: RESTORE 
; WHAT 
UE 

'; SAVED 


000207 






RTS 


PC 





Eil 

COKOOBO KDJll DA CLUSTER 01 AG. 
DMARO DATI THRU Q22Be 
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SCO 0134 



4741 










474? 










4743 










4744 










4745 










4746 










4747 










4746 


030676 








4749 


030676 


012737 


000000 


172340 


4750 


030704 


012737 


000200 


172342 


4751 


030712 


012737 


000400 


172344 


4752 


030720 


012737 


000600 


172346 


4753 


030726 


012737 


001000 


172350 


4754 


030734 


012737 


001200 


172352 


4755 


030742 


012737 


001400 


172354 


4756 


030750 


012737 


177600 


172356 


4757 


030756 


012702 


000010 




4758 


030762 


012701 


172300 




4759 030766 


012721 


077406 




4760 


030772 


077203 






4761 


030774 


012737 


000001 


177572 


4762 


031002 


012737 


000020 


172516 


4763 


031010 


000207 







; SETMMU SET UP THE MMU REGISTERS 

t 

; This test Is called by the memory test to set up the PARS so 

; all of memory is accessed 



SETMMU: 



10$: 



MOV 


«0,9«KIPAR0 


MOV 


#200.a«KIPARl 


rov 


#400.9«KIPAR2 


MOV 


«600,9«KIPAR3 


MOV 


«1000.9«KIPAR4 


MOV 


«1200,9«KIPAR5 


MOV 


«1400,a«KIPAR6 


MOV 


♦1 77600, a«KIPAR7 


MOV 


#10. R2 


MOV 


«KIP0R0,R1 


MOV 


♦77406, (Rl)» 


SOB 


R2.10$ 


MOV 


«1,9*SR0 


MOV 


«eiT4.a«SR3 


RTS 


PC 



SUBR SET UP MMU REGISTERS 
POINT TO PAGE 0 TO ITSELF 
POINT TO PAGE 1 TO ITSELF 
POINT TO PAGE 2 TO ITSELF 
POINT TO PAGE 3 TO ITSELF 
POINT TO PAGE 4 TO ITSELF 
POINT TO PAGE 5 TO ITSELF 
POINT TO PAGE 6 TO ITSELF 
POINT I/O PAGE TO IT'S PLACE IN 22 
BGNDO 

: SET UP POR'S TO 4K R/U 



BIT 



DOUNTIL UE HAVE INITIALIZED ALL OF THEM 
ENABLE MEMORY MANAGEMENT 
ENABLE 22 BIT ADDRESSING 
ENDSUBR SET UP MMU REGISTERS 



COKOOeO KDJll-OA CLUSTER 01 AG. 
OMARO DAT I THRU 022BE 



4765 
4766 
4767 
4768 
4769 
4770 
4771 
477^ 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
t782 
4783 

4784 031012 

4785 031012 

4786 031020 

4787 031024 

4788 031024 

4789 031030 

4790 031032 

4791 031036 

4792 031040 

4793 031046 

4794 031052 

4795 031056 

4796 031064 

4797 031066 

4798 031072 

4799 031074 

4800 031100 

4801 031102 

4802 031110 

4803 031114 

4804 031120 

4805 031126 

4806 031130 

4807 031134 

4808 031136 

4809 031142 

4810 031144 

4811 031152 

4812 031156 

4813 031162 

4814 031170 

4815 031172 

4816 031174 

4817 031174 
4818 

4819 
4820 
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STQ 0135 



INIMEM FILL UP MEMORY 

This test is called by the Quick verify memory test. It init'alizcs 
memory to look like the following. 



Address 

0 
1 
2 
3 
4 
5 



Data 

377 

0 

0 

377 

0 

0 



INIMEM: 



01i737 


001600 


172344 




MOV 


#1600 , a#KIPAR2 


POINT KPAR2 TO LOU ADDRESS 


012701 


040000 




10$: 


MOV 


«40000.R1 


SET VIRTUAL ADDRESS TO MAP THRU KPAH2 
BGNDO 


lie '11 


1 f f f f r 






novB 


9 I.CKIJ 




URITE A 1 TO 0 OFFSET ADDRESS 


005201 








INC 


Rl 








020127 


060000 






CMP 


Rl. #60000 




IF UE HAVE PASSED THE PAGE BOUNDARY 


103413 








BLO 


20$ 






THEN 


062737 


000200 


172344 




ADO 


#200,a^IPAR2 






POINT KPAR2 TO A NEW PAGE 


042701 


160000 






BIC 


#160000. Rl 






CLEAR OUT THE PAGE POINTER 


052701 


040000 






BIS 


#40000, Rl 






POINT VIRTUAL ADDRESS TO KPAR2 


023727 


172344 


020000 




CMP 


9«KIPAR2. #20000 




ENDIF 


001443 








BEQ 


40$ 


DOUNTIL UE HAVE READ ALL ADDRESSES 


112711 


000000 




20$: 


MOVB 


#0,(R1) 




■ URITE A 0 TO 1 OFFSET ADDRESS 


005201 








INC 


Rl 








020127 


060000 






CMP 


Rl, #60000 




• IF UE HAVE PASSED THE PAGE BOUNDARY 


103415 








BLO 


30$ 






THEN 


062737 


000200 


172344 




ADD 


»200.a#KIPAR2 






POINT KPAR2 TO A NEU PAGE 


042701 


160000 






BIC 


#160000. Rl 






CLEAR OUT THE PAGE POINTER 


052701 


040000 






BIS 


#40000. Rl 






POINT VIRTUAL ADDRESS TO KPAR2 


023727 


172344 


020000 




CMP 


9«KIPAR2. #20000 




ENDIF 


001422 








BEQ 


40$ 


DOUNTIL UE HAVE READ ALL ADDRESSES 


112711 


000000 






MOVB 


#0.(R1) 




URITE A 0 TO 2 OFFSET ADDRESS 


005201 






30i: 


INC 


Rl 




BUMP UP ADDRESS BY 3 


020127 


060000 






CMP 


Rl. #60000 




IF UE HAVE PASSED THE PAGE BOUNDARY 


103730 








BLO 


10$ 






THEN 


062737 


000200 


172344 




ADD 


#200,9«KIPAR2 






POINT KPAR2 TO A NEU PAGE 


042701 


160000 






BIC 


#160000. Rl 






CLEAR OUT THE PAGE POINTER 


052701 


040000 






BIS 


#40000. Rl 






POINT VIRTUAL ADDRESS TO KPAR2 


023727 


172344 


020000 




CMP 


a#KIPAR2. #20000 




ENDIF 


001401 








BEQ 


40$ 


DOUNTIL UE HAVE READ ALL ADDRESSES 


000714 






40$: 


BR 


10$ 








000207 






50$: 


RTS 


PC 


ENOIF 



SUBR INITIALIZE MEMORY 



ENDSUBR INITIALIZE MEMORY 



Gil 

COKOOBO KDJll-DA auSTER DIAG. 
DHARO UATI THRU Q22BE 



4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 

4836 031176 

4837 031176 

4838 031204 

4839 031210 

4840 031214 

4841 031216 

4842 031216 

4843 031220 

4844 031224 

4845 031226 

4846 031234 

4847 031240 

4848 031244 

4849 031252 

4850 031254 

4851 031256 

4852 031260 

4853 031262 

4854 031264 

4855 031270 

4856 031274 

4857 031300 

4858 031302 

4859 031304 

4860 031304 

4861 031306 

4862 031306 

4863 031310 

4864 031314 

4865 031316 

4866 031324 

4867 031330 

4868 031334 

4869 031342 

4870 031344 

4871 031346 
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SEQ 015*- 



RUTMEM READ OR WRITE TO THE MEMORY 

This test 's called by the Quick verify memory test to Read or 
Write to memory, 

R3 = OPEiRATION TO BE PERFORMED 

0 - READ 

1 - WRITE 

R4 » THE ADDRESS INCREMENT 
R5 = THE EXPECTED PATTERN 









RUTMEM: 




— - - 


SUBR READ WRITE MEMORY 


012737 


001600 


172344 




MOV 


01600. (a*KIPAR2 


POINT TO KPAR2 TO LOW ADDRESS 


012701 


040000 






MOV 


#40000. Rl 


POINT TO PAGE 2 VIRTUAL ADDRESS 


012702 


000003 






MOV 


*3.R2 


UE 


ARE BUMPING UP BY 3 


160402 






10$: 


SUB 


R4.R2 


SUBTRACT OFF ADDRESS INCREMENT 
BGNDO 


060401 








ADD 


R4,R1 




GET ADDRESS TO LOOK AT 


020127 


060000 






CMP 


Rl , 060000 




IF WE HAVE PASSED THE PAGE BOUNDARY 


103413 








6L0 


15$ 






THEN 


062737 


000200 


172344 




ADD 


#200,a<H<IPAR2 






POINT KPAR2 TO A NEW PAGE 


042701 


160000 






BIC 


*160000,R1 






CLEAR OUT THE PAGE BITS 


052701 


040000 






BIS 


«40000,R1 






SET THEM BACK TO PAGE 2 


023727 


172344 


020000 




CMP 


a«<IPAR2. #20000 




• ENDIF 


001435 








BEQ 


40$ 








005703 






15i: 


TST 


R3 




IF THE OPERATION IS A READ 


001012 








BNE 


20$ 






THEN 


120511 








CMPB 


RS.CRl) 






IF CONTENTS <> EXPECTED PATTERN 


001411 








BEQ 


30$ 






: THEN 


010537 


001124 






MOV 


R5.$GDDAT 






: GET THE EXPECTED PATTERN 


111137 


001126 






MOVB 


(R1).$BDDAT 






: GET THE RECIEVED PATTERN 


010137 


001122 






MOV 


Rl . $BDA0R 






GET THE VIRTUAL ADDRESS 


104066 








ERROR 


*66 






ERROR IN MEMORY 


000401 






20%: 


BR 


30$ 






E'CIF 
ELSE 


110511 








MOVB 


RS.CRl) 






WRITE PATTERN TO MEMORY 








30$: 






ENDIF 


060201 








ADD 


R2.R1 




ADD ON DIFFERENCE TO GET ADDRESS. 3 


020127 


060000 






CMP 


Rl. #60000 




IF WE HAVE PASSED THE PAGE BOUNDARY 


103740 








BLO 


10$ 






THEN 


062737 


000200 


172344 




ADD 


«200,9«KIPAR2 






POINT KPAR2 TO A NEW PAGE 


042701 


160000 






BIC 


#160000. Rl 






CLEAR OUT THE PAGE BITS 


052701 


040000 






BIS 


#40000. Rl 






SET PAGE BITS BACK TO PAGE 2 


023727 


172344 


020000 




CMP 


a«KIPAR2. #20000 




ENDIF 


001401 








BEQ 


40$ 


i DOUNTIL WE HAVE READ ALL ADDRESSES 


000724 








BR 


10$ 








000207 






40$: 


RTS 


PC 


ENDSUBR READ WRITE.MEMORY 



*t 
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OMARD DATI THRU Q2XE 



4873 
4874 








: RRMEM - READ 


THE MEMORY 


4875 














4876 








: This 


test i s 


called by the memory 


4877 












4878 








; R4 • 


THE ADDRESS INCRE^€NT 


4879 








; R5 = 


THE EXPECTED PATTERN 


4880 










.... _ _ 


... ........... . 


4881 031350 








RRMEM: 






4882 031350 


012737 


001600 


172344 




MOV 


»1600,S«KIPAR2 


4883 031356 


012701 


040000 






MOV 


*40000.R1 


4884 031362 








10$: 




4885 031362 


111137 


001126 






MOVB 


(R1),$BDDAT 


4886 031366 


122737 


177777 


001126 




CMPB 


#-l.$B00AT 


4887 031374 


001406 








BEQ 


15$ 


4888 031376 


012737 


177777 


001124 




MOV 


#-l.$G0DAT 


4889 031404 


010137 


001122 






MOV 


R1.$B0ADR 


4890 031410 


104066 








ERROR 


*66 


4891 031412 


005201 






15$: 


INC 


Rl 


4892 031414 


020127 


060000 






CMP 


Rl. 060000 


4893 031420 


103413 








BLO 


20$ 


4894 031422 


062737 


000200 


172344 




ADO 


#200.3#KIPAR2 


4895 031430 


042701 


160000 






BIC 


#160000. Rl 


4896 031434 


052701 


040000 






BIS 


#40000. Rl 


4897 031440 


023727 


172344 


020000 




CMP 


3«KIPAR2. #20000 


4898 031446 


001435 








BEQ 


40$ 


4899 031450 


111137 


001126 




20$: 


MOVB 


(R1).$BD0AT 


4900 031454 


122737 


177777 


001126 




CMPB 


#-l.$BDDAT 


4901 031462 


001406 








BEQ 


30$ 


4902 031464 


112737 


177777 


001124 




MOVB 


#-l.$GDDAT 


4903 031472 


011137 


001122 






MOV 


(R1).$BDADR 


4904 031476 


104066 








ERROR 


*66 


4905 031500 


062701 


000002 




30$: 


ADD 


#2.R1 


4906 031504 


020127 


060000 






CMP 


Rl. #60000 


4907 031510 


103724 








BLO 


10$ 


4908 031512 


062737 


000200 


172344 




ADD 


«2«X>.8«KIPAR2 


4909 031520 


042701 


160000 






BIC 


«lb0000.Rl 


4910 031524 


052701 


040000 






BIS 


#40000,R1 


4911 031530 


023727 


172344 


020000 




CMP 


a#KIPAR2. #20000 


4912 031536 


001401 








BEQ 


40$ 


4913 031540 


000710 








BR 


10$ 


4914 031542 


000207 






40$: 


RTS 


PC 


4915 











wr'te to memory 



SUBR READ LOCATIONS 0.1 

LET PAR Point to lOu address 

POINT TO KPAR2 VIRTUAL ADDRESS 
BGNOO 

: GET A COPY OF RECIEVED PATTERN 
: IF 0 OFFSET ADDRESS <> -1 THEN 

ERROR IN MEMORY 
: GET THE EXPECTED PATTERN 
: GET THE VIRTUAL ADDRESS 

! POINT TO 1 OFFSET ADDRESS 

: IF UE HAVE PASSED THE PAGE BOUNDARY 

: : THEN 

: POINT KPAR2 TO A NEW PAGE 
: : CLEAR THE PAGE BITS 

: POINT BACK TO PAGE 2 
: ENDIF 

i GET THE RECIEVED PATTERN 

: IF 1 OFFSET ADDRESS <> 1 THEN 

ERROR IN MEMORY 
: GET THE EXPECTED PATTERN 
: GET THE VIRTUAL ADDRESS 

! ADD 2 TO ADDRESS TO GET ADDRESS ♦ 3 
: IF UE HAVE PASSED THE PAGE BOUNDARY 
: THEN 

: POINT KPAR2 TO A NEU PAGE 

: CLEAR THE PAGE BITS 
: : POINT BACK TO PAGE 2 
: ENDIF 

DOUNTIL UE HAVE READ ALL ADDRESSES 
ENDSUBR READ LOCATIONS 0.1 



Ill 

COKDOBO KDJll OA CLUSTER OlAG. 

DMARO DATI THRU Q22BE 

4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 



4940 031544 








4941 031544 


104401 


031552 




4942 031550 


000207 






4943 








4944 031552 


105 


122 


122 


031555 


117 


122 


040 


031560 


104 


105 


124 


031563 


105 


103 


124 


031566 


105 


104 


040 


031571 


111 


116 


040 


031574 


112 


061 


061 


031577 


040 


106 


114 


031602 


117 


101 


124 


031605 


111 


116 


107 


031610 


040 


120 


117 


031613 


111 


116 


124 


031616 


040 


120 


122 


031621 


117 


103 


105 


031624 


123 


123 


117 


031627 


122 


056 


000 
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SUBROUTINE DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 

THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE 
FLOATING POINT TESTS. 

IT DETERMINES WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION 
IS PRESENT ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE. 
THIS DETERMINATION IS MADE BASED ON THE "FPA AVAILABLE" FLAG. BIT 8 
OF THE MAINTENANCE REGISTER AT LOCATION 17777750. If THE FPA BIT IS SET 
THEN THE FLOATING POINT ACCELERATOR CHIP IS INSTALLED ON THE CPU BOARD AND 
AN ERROR MESSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR IS 
DUE TO THIS CHIP. OTHERWISE. THE Jll IS BLAMED FOR THE FLOATING POINT ERROR. 

$$» 

CALLED BY: CALL aODETFPA s$** 

INPUTS: NONE ;$»$ 
OUTPUTS: ERROR MESSAGES ;♦*$ 
DETFPA: 



SEO 0138 



TYPE 
RTS 



•JllFLT 
PC 



JllFLT: .ASCIZ /ERROR DETECTED IN Jll FLOATING POINT PROCESSOR./ ; $$* 



4945 
4946 



.EVEN 



Jli 

COKDOeo KOJll OA CLUSTER 01 AG. 

OMARD OATI THRU Q22SE 

4949 
4950 
4951 



MACRO V05.03 Wednesday 09 Apr 66 09:43 Page 50 



SBTTL END OF PASS ROUTIhC 

««***4>***«************* «*••** 

♦INCREMENT THE PASS NUMBER ($PASS) 

♦INDICATE END -OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
♦TYPE "END PASS ffXXXXX" (WHERE XXXXX IS A DECIMAL NUMBER; 
♦IF THERES A MONITOR GO TO IT 
♦IF THERE ISN'T JUMP TO LOOP 



4952 











?tLIK: 










ATD7T7 


Ar ' AA 


AAAA^O 




BIT «IT06.a*52 






AA1 ATA 








BNE $GET42 




ATI AAD 




C 1 770A 

y.\i ( tin 






jsr r5, 


V ■ reop 
nSTNM 




ATI fsAf^ 


AA^AT7 








CLR 




ZERO THE TEST NUMBER 


ATI 


AA*?A ' 7 


AA1 1 AA 






CLR 


$ TIMES 




ZERO THE NUMBER OF ITERATIONS 


AT 1 


AA^ D'- 


AA1 OAA. 






INC 


*PASS 




INCREMENT THE PASS NUMBER 


ATI AAS 


AA0"*T7 


1 AAAAA 


AA1 Onfy 




BIC 


*100000.*PASS 




DON'T ALLOW A NEG. NUMBER 


ATI <i7n 


AA^iTS? 








DEC 


(PC)* 




LOOP? 


ATI 


VAAwVX 








.WORD 


1 














BGT 


$DOAGN 


;YES 


DTI ft7ft 
Xv ' u 


Ci\ P7T7 
vXc f J f 








MOV 


(PC)*.a(PC)* 




RESTORE COUNTER 


ATI 7AA 
vOX f VA/ 


AAAAAl 
VAAAA/X 






trwnrT . 
vcnuL 1 : 


iJAcn 
. WUKU 


1 


OT 1 7A3 
vJX f\J£ 


ATI A73 








♦EOPCT 






ATI 7AA 

VVX ' V** 


1 AAAA1 
1CM*HV^X 


ATI 7'%1 
UOX ' JX 






TYPE 


.JENDMG 




TYPE "Er© PASS #" 


031710 


013746 


001P06 






MOV 


JPASS. (SP) 




SAVE $PASS FOR TYPEOUT 


0317U 


104405 








TYPOS 




GO TYPE DECIMAL ASCII WITH SIGN 


031716 


104401 


031746 






TYPE 


.$ENULL 




TYPE A NULL CHARACTER 


031722 


013700 


000042 




tGET42: 


MOV 


9#42.R0 




GET MONITOR ADDRESS 


031726 


001405 








BEQ 


$OOAGN 




BRANCH IF NO MONITOR 


031730 


000005 








RESET 






CLEAR THE WORLD 


031732 


004710 






$ END AO: 


JSR 


PC,(RO) 




GO TO MONITOR 


031734 


000240 








NOP 




.SAVE ROOM 


031736 


000240 








NOP 






FOR 


031740 


000240 








NOP 






ACTll 


031742 








$DOAGN: 






031742 


000137 








JMP 


acpo* 


: RETURN 


031744 


005064 






♦RTNAO; 


.WORD 


LOOP 




031746 


377 


377 


000 


♦ENULL: 


.BYTE 


l.-l.O 


;NULL CHARACTER STRING 


031751 


015 


012 


105 


$ENDMG: 


.ASCIZ 


<15><12>/END PASS 




031754 


116 


104 


040 










031757 


120 


101 


123 










031762 


123 


040 


043 










031765 


000 















031766 

031766 104407 



.SBTTL SCOPE HANDLER ROUTINE 

;♦♦♦♦♦♦♦**«♦♦**♦♦♦♦•**♦♦*****♦**♦♦♦♦♦**♦♦♦♦♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
♦AND LOAD THE TEST NUMBERC $TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
♦AND LOAD THE ERROR FLAG (»ERFLG) INTO OISPLAY<15:08> 
♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
♦SW14-1 LOOP ON TEST 

♦SWll-1 INHIBIT ITERATIONS 

♦SW09«1 LOOP ON ERROR 

♦SW08-1 LOOP ON TEST IN SWR<5:0> 

♦CALL 

♦ SCOPE 



♦SCOPE: 



CKSWR 



SCOPE =«IOT 

!;TEST 



FOR CHANGE IN SOFT SWR 



4. 



Kil 
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SCO 0140 



SCOPE HANDLER ROUTINE 














VOX' ' w 




001000 


177520 




BIS *1000.BCSR 2 ENABLE 






0'"l?777 
lit 


040000 


147134 


1$: 


BIT 


#6IT14.aSUR 


J LOOP ON PRESENT TEST? 




001 1 1 7 








BNE 


*0VER i 


;YES IF SU14-1 










:####«START OF 


CODE FOR THE XOR 1 


rESTEROOOOO 




000416 






$yTSTR: 


BR 


6J ; 


;IF RUNNING ON THE "XOR' TESTER CHANGE 
















;THIS INSTRUCTION TO A "NOP" (NOP'240) 




013746 


000004 






MOV 


aOERRVEC. (SP) ! 


;SAVE THE CONTENTS OF THE ERROR VECTOR 


032014 


012737 


032034 


000004 




MOV 


#5t.a*ERRVEC i 


.-SET FOR TIMEOUT 


032022 


005737 


177060 






TST 


3*177060 , 


;TIME OUT ON XOR? 


032026 


012637 


000004 






MOV 


( SP ) ♦ . a*ERRVEC 


; RESTORE THE ERROR VECTOR 


032032 


000466 








BR 


$SVLAD 


;G0 TO THE NEXT TEST 


032034 


022626 






5»: 


CMP 


( SP ) ♦ . ( SP ) ♦ 


; CLEAR THE STACK AFTER A TIME OUT 


032036 


012637 


000004 






MOV 


(SP)*,S*ERRVEC 


; RESTORE THE ERROR VECTOR 


032042 


000426 








BR 


7$ 


sLOOP ON THE PRESENT TEST 


032044 








6$: .-SOOOOENO OF 


CODE FOR THE XOR 


TESTEROOOOO 


032044 


032777 


000400 


147066 




RTT 

DX 1 


*6IT08,SSUR 


;LOOP ON SPEC. TEST? 


032052 


001407 










2$ 


;BR IF NO 


032054 


017746 


147060 








3SUR , ( SP ) 


;SET DESIRED TEST NUM. FROM SUR 


032060 


042716 


000300 






RTT 

DX^ 


*$SURMK , (SP J 


; STRIP AUAY UNDESIRED BITS 


032064 


122637 


001102 






TMPR 

1*1 IT D 


(SP)* , ITSTNM 


;0N THE RIGHT TEST? 


032070 


001465 








RFQ 

DCW 


iOVER 


iBR IF YES 


032072 


105737 


001103 




c* . 


t<;tr 


♦ERFLG 


1 J n r* AkI tf^AAAA AAAI lAAP A ^ 

;HAS AN ERROR OCCURRED? 


032076 


001421 










3$ 


;BR IF NO 


032100 


123737 


001115 


001103 






$ERMAX , $ERFLG 


:MAX. ERRORS FOR THIS TEST OCCURRED? 


032106 


101015 








RHT 




n A ▼ r A 1 A 

iBR IF NO 


032110 


032777 


001000 


147022 




BIT 


aottaa Af*i m 

vBIT09,SSUR 


1 r\r\n a^i paa aa 

iLOOP ON ERROR? 


032116 


001404 








BEQ 


4$ 


A A T r A|/% 

;BR IF NO 


032120 


013737 


001110 


AA4 4 A£ 

001106 


7i • 


MOV 


?LPtRK , $LrAuR 


;SET LOOP ADDRESS TO LAST SCOPE 


032126 


000446 








BR 


A At ir'A 

♦ OVER 




032130 


105037 


001103 




4$: 


CLRB 


♦ERrLG 


;ZERO THE ERROR FLAG 


032134 


005037 


001164 






CLR 


♦TIMES 


2 CLEAR THE NUMBER Or ITERATIONS TO MAKE 


032140 


000415 








BR 


1^ 


'J ESCAPE TO THE NEXT TEST 


032142 


032777 


AAil AAA 

004000 


146770 


3$: 


BIT 


AOTT* 4 API lO 

dBITll.SSUK 


{INHIBIT ITERATIONS? 


032150 


001011 








BNE 


• A 

1* 


;BR IF YES 


032152 


005737 


AA4 

001206 






TST 


♦PASS 


, jIF FIRST PASS OF PROGRAM 


032156 


001406 








BEQ 


A A 

If 


• ! INHIBIT ITERATIONS 


032160 


005237 


A A 4 4 A 4 

001104 






INC 


IICNT 


INCREMENT ITERATION COLWT 


032164 


023737 


001164 


001104 




CMP 


♦TIMES, flCNT 


Alit*At/ TlJ^ ih^n^A Ac" TTrAATTAfcl^ kJAAC 

; CHECK THE NUMBER OF ITERATIONS MADE 


032172 


002024 








BGE 


♦OVER 


AA T r~ UAA^ T ▼ ^ A A T T AA 1 r\C f\t i X Of" A 

ijBR IF MORE ITERATION REQUIRED 


032174 


012737 


A A AAA 4 

000001 


001104 


1*: 


MOV 


01 . IICNT 


A^TklTTTAi Ti TTCAATTAfcl AAl l^lTPA 

; REINITIALIZE THE ITERATION COUNTER 


032202 


013 37 


032266 


001164 




MOV 


$MXCNT.I TIMES 


r~ T AM i^4Af~ A AH" T T t~l^ A T T AA IP T A A A 

jSET NUMBER OF ITERATIONS TO DO 


032210 


105237 


AA 4 4 A ^ 

001102 




JSVLAD: 


INCB 


$TSTNM 


sCOlfJT TEST rJUMBERS 


032214 


113737 


001102 


AA4 '\A^ 

001204 




MOVB 


♦TSTNM.»TESTN 


pr"T Tc*f*T All ihjnr~A Tki aat unTi oav 

, ;SET TEST NUMBER IN APT MAILBOX 


032222 


011637 


001106 






MOV 


(SP).$LPADR 


^ n \ if ^ A A A^ 1 rtr^A AAAA^r'r* 

;SAVE SCOPE LOOP ADDRESS 


032226 


011637 


001110 






MOV 


(SP).»LPERR 


I SAVE ERROR LOOP ADDRESS 


032232 


005037 


\rJXlbb 






CLR 


♦ESCAPE 




032236 


112737 


000001 


001115 




MOVB 


01 . fERMAX 


:ONLY ALLOU ONE(l) ERROR ON NEXT TEST 


032244 


013777 


001102 


146670 


$OVER : 


MOV 


♦TSTNM.aOISPLAY 


{DISPLAY TEST NUMBER 


032252 


013716 


001106 






MOV 


♦LPAOR.(SP) 


{FUDGE RETURN ADDRESS 


032256 


042737 


001000 


177520 




BIC *1000.BCSR : DISABLE 




032264 


000002 








RTI 






032266 


000001 






$MXCNT : 


1 




{MAX. NUMBER OF ITERATIONS 


4953 








.SBTTL 


ERROR HANDLER ROUTINE 



♦THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
♦SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
♦AND GO TO ERTYPE ON ERROR 



Lil 
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♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SU15' 
♦SU13- 
♦SUIO' 
*SU09' 
♦CALL 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 











; * 


ERROR 


♦N s ; ERROR 


/s ^ ^ /\ 

032270 








♦ERROR : 






032270 


005737 


004154 






TCT 

lb 1 


1 lAI ITCT 

UQUItT 


032274 


001403 








BEQ 


9» 


032276 


005000 








CLH 


DA 

HO 


Q5c50Q 


004737 


032512 






■ CD 


DP AOADT 


032304 








9$ : 






032304 


1 AJI il A'7 

10440 r 








LKbWK 




03^306 


0 lit 


AA1 AAA 
OOlOOO 


1 f '520 




DT C 

Dlb 


■HI AAA DPCD 


03c314 


10^c3 r 


AA1 1 AT 
0011U3 




74 . 

f ♦ : 


»tnr Lb 


032320 


AA 1 Tf^ 








OCA 


•J * 
f* 




U13 f ( ( 


AA 1 1 AO 


1 A£.£ 1 O 




nuv 


^TCTkJH :^TCDI AY 
♦ 1 3 1 Nn , OHJlbrLHT 


ATOTTA 
U3c32U 


U3c 1 ' ' 


AAOAAA 


1 AI^£.AO 

140002 




OTT 
HI 1 


ADTTIA 

vt)l 1 lU 1 OloWK 


AT JTTiL 


AiM A AO 








DtU 


1 ( 
1 ♦ 


A*JOTAA 

U3C34U 




AAl 1 7A 
UUll lU 






T YDC 

1 Trt 


, ?Dt.LL 


ATOTAA 

U3c3hh 


AAC iT"? 

uy ^3 ( 


AA 1 1 1 O 




1* : 


INL 


tCDTTI 
ft.n 1 1 L 


U3c3 jvJ 


All e^XT 
1'1103 1 


AA 111*;. 
OOillb 






nuv 


^ CD 1 trODDP 


ATOTC^ 

U3c3 


iOc ( 3 ( 




AA 1 1 1 A 

UUll ID 






vc , ?tKKr L 


U3c30c 


1 1 77T7 




AA 1 1 1 A 
UUlll* 




nuvD 




AT0T7n 
U3c 3 f U 


rtT0777 
U3c II' 


rtOAAAA 






RTT 
01 1 


ART TIT aCUO 
vDl 1 13 ( QloWn 




AA1 AAA 








RKiP 


CU ? 




(V4A7T7 
1 0 1 


A07A'TA 






IQO 


DP PDT I'DF 


ATOAAA 


1 AAAm 


AAl 1 7C 
UUll Ij 






1 Irt 


4PDI F 


U3c*iU 








cUf : 






U3«:«HU 


Ice ' 3 1 


AAA AAl 
UUUUUl 


AAl OOA 
UUlccU 




PMOQ 
LrTrD 


AAOTPMU IPMV/ 
If Hr 1 tnv f ♦triV 




AAl AA7 
WiUU 1 








RKIP 


2i 


U3c*cU 


1 1 T7T7 
110 1 0 1 


(Vll 1 1 A 
UUlll*^ 


ftT?AX3 
UOc'rOc 




Mnv/R 
nuvo 


«1 1 CnDfClf 


AT3A3& 

Uoc4eo 


/WA7T7 


U3cO f U 






ICD 
Jan 


OP lATYA 


U3c432 


AAA 

you 






Ol 4 . 

cl f : 


.□TIL 


A 

U 


U3c4dO 


AAA 








OYTC 
. DT It 


A 

U 




UvU Iff 






33* • 
ce* : 


On 


33* 




rtA^777 
vv3 f f f 


1 A/LA7<^ 




3i • 

c* : 


1 3 1 


9SWR 


U3e4^c 


1 n<w\3 

lUWUc 










T* 
3f 


03c4*^ 


AAAAAA 








UAI T 
rlHL i 




U3e44o 


10440 f 








/^i/CLID 
LKsUK 






03P777 


001000 






BIT 


MTT09 aSUR 


032456 


001402 








BEQ 


4$ 


032460 


013716 


001110 






MOV 


ILPERR.CSP) 


032464 


005737 


001166 




4$: 


TST 


♦ESCAPE 


032470 


001402 








BEQ 


51 


032472 


013716 


001166 






MOV 


♦ESCAPE. CSP) 


032476 








5»: 




032476 


022737 


031732 


000042 




CMP 


^♦ENDAD,S«42 


032504 


001001 








6NE 


6^ 


032506 


000000 








HALT 




032510 








6$: 






032510 


000002 








RTI 


ROUTINE FOR LCP/0 










.SBTTL 


ABORT 


032512 


005737 


004152 




ABORT : 


TST 


UFDFLG 


032516 


001454 








BEQ 


NOABRT 


032520 


020027 


000032 






CMP 


R0,«2 



s sERROR-'EMT AND N ERROR ITEM NUMBER 



TEST FOR USER-QUIET MODE 
BRANCH IF FIELD SERVICE MODE 
IN CASE RO HAS A #3 IN IT ( tC) 
TEST FOR ABORT CONDITION 



;;TEST FOR CHANGE IN SOFT SUR 
: ENABLE HALT ON BREAK 
SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERROR? 
NO SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 
GET ADDRESS OF ERROR INSTRUCTION 



STRIP AND SAVE THE ERROR ITEM CODE 

SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

60 TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO. SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT -SUR 

LOOP ON ERROR SWITCH SET? 

BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT 11 AUTO ACCEPT? 

BRANCH IF NO 

YES 



;; RETURN 
HON UFD MODE 

TEST FOR USER FRIENDLY MODE 

IF NOT UFD THEN CONTINUE NORMAL OPERATION 

IS IT A tZ ? 



Mil 
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SeO 0142 

ABORT RO^JTI^E FOR LCP/QRION UFO MODE 



032524 


001443 








BEQ 


ABORTZ 


JUST GO BACK TO CHAIN IF IT IS (NO ERROR) 


032526 


020027 


000003 






Cf** 


RG , #3 


IS IS A tC ? 


032532 


001404 








BFQ 


ABORTC ! 


BR TO LOAD tC ON XXDP* STACK (NO ERROR) 


032534 


005737 


004154 






TST 


UQUIET 


TEST FOR USER-QUIET MODE 


032540 


001443 






BEQ 


NOABRT 


IF FIELD -SERVICE MODE, CONTINUE NORMAL OPERATION 












BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 


032542 


000422 








BR 


ABORTE 


SET DRSERR THEN LEAVE 


032544 


013737 


004146 


000030 


ABORTC : 


MOV 


SAV30,3C 


RES 1 ORE EMT lO^-ATION (30) 


032552 


013737 


004150 


000032 




MOV 


SAV32 , 32 


APfTAA^ PkJT AATAATT\/ I AAATTAkI 

RESTORE EMT PRIORITY LOCATION (32) 


032560 


104043 








EMT 


♦ 43 


APT v^\yAl^ f'TAf^iy 1 AA TklTA AA POAkJ MA&IT TAA 

GET XXDr STACK LOC. INTO RO FROM MONITOR 


032562 


005720 






1$: 


TST 


(RO)* 


FIND END OF STACK 


032564 


001376 








BNE 


1$ 




032566 


112760 


000057 


177777 




MOVB 


# /, KRO; 


1 AAA ^1 A d_l AtJ^D '7COA 

LOAD SLASH OVER ZERO 


032574 


112720 


000136 






MOVB 


9' t,(RO)» 


LOAD urARROW 


032600 


112720 


000103 






MOVB 


t t DA \ 


1 A A A r" 

LOAD C 


032604 


105010 








Ai no 

CLRB 


/ AA ^ 

(RO; 


MAKE NtW END 10 STACK 


032606 


AAA^ 1 O 








BR 


ABORTZ 


NOU LEAVE 


032610 


013737 


004146 


>V A A A A 

000030 


ABORTE: 


MOV 


SAV30.30 


RESTORE EMT LOCATION (30) 


032616 


013737 


AAil < CA 

004150 


000032 




MOV 


SAV32.32 


RESTORE EMT PRIORITY LOCATION (32) 


032624 


104042 








EMT 


♦ 42 


,GET OCA LOCATION INTO RO FROM MONITOR 


032626 


A 4 A 

012760 


177777 


AAA Ail ^ 

000042 




MOV 


#-1.42(R0) 


iSET A -1 INTO LOCATION DRSERR IN MONITOR 


/W 

032634 


A 4 9'*TAA 

013700 


AAA Ail 

000042 




ABORT Z: 


MOV 


S«42,R0 


iAND PUT THE MONITOR RETURN ADDRESS iN RO 


032640 


005037 


AAAAjI 

000042 






CLR 


3«42 


; CLEAR MONITOR RETURN FLAG 


032644 


AAA* 1 ^ 

000137 


AT 4 T» ^ 

031732 






JMP 


$ENOAD 


; RETURN TO MONITOR DO NOT PUSH STACK HERE 




AAA^A"T 

000207 






NOABRT : 


RTS 


PC 


:IF NOTUFD RETURN TO MAINLINE 










.SBTTL 


APT COMMUNICATIONS ROUTINE 












052652 


112737 


AAAAAl 
OOUOOl 


ATT lie 

033116 


♦ATYl: 


MOVB 


#1 . *FFLG 


ijTO REPORT FATAL ERROR 


032660 


112737 


AAAAA4 

000001 


ATT 1 1 il 

033114 


$ATY3: 


MOVB 


01 , JHFLG 


i ;T0 TYPE A MESSAGE 


032666 


AAA^AV 

000403 








BR 


$ATYC 




032670 


112737 


AAAAA4 

000001 


ATT 4 1 £ 

033116 


♦ATY4: 


MOVB 


#1.*FFLG 


ijTO ONLY REPORT FATAL ERROR 


032676 








»ATYC: 








032676 


010046 








MOV 


RO.-CSP) 


J sPUSH RO ON STACK 


032700 


A4 At 

010146 








MOV 


Rl.-CSP) 


; {PUSH Rl ON STACK 


032702 


105737 


AW 4 4 Jl 

033114 






TSTB 


♦MFLG 


:!SHOULD TYPE A MESSAGE? 


032706 


AA4 ^CA 

001450 








BEQ 


5i 


!jIF NOT: BR 


032710 


122737 


000001 


001220 




CMPB 


#APTENV.*ENV 


OPERATING UNDER APT? 


032716 


AA4 AV 4 

001031 








BNE 


3» 


ssIF NOT: BR 


032720 


132737 


AAA 4 AA 

000100 


AA4 

001221 




BITS 


»APTSPO0L.»ENVM 


: {SHOULD SPOOL MESSAGES? 


032726 


AA t M 

001425 








BEQ 


3$ 


jjIF NOT- BR 


032730 


A* ^tAA 

0x7600 


AAAAAil 

000004 






MOV 


a4(SP),R0 


i:GET MESSAGE ADDR. 


032734 


062766 


AAAAAO 

000002 


AAAAAil 

000004 




ADO 


02.4(SP) 


::BUriP RETURN AODR. 
ssSEE IF DONE U/ LAST XMISSION? 


032742 


005737 


AA4 AAA 

001200 




1$: 


TST 


♦MSGTYPE 


032746 


AA« 

001375 








BNE 


11 


5:IF NOT: WAIT 


032750 


A4 AAV^ 

010037 


AA4 '^l A 

001214 






MOV 


RO,»MSGAD 


5 {PUT ADDR IN MAILBOX 


032754 


105720 






2(: 


TSTB 


(R0)» 


{{FIND END OF MESSAGE 


032756 


AA 4 

001376 








BNE 


2% 






IDS rUv 








SUB 


♦MSGAO.RO 


{ {SUB START OF MESSAGE 


032764 


006200 








ASR 


RO 


; {GET MESSAGE LNGTH IN WORDS 


032766 


010037 


001216 






MOV 


RO.IMSGLGT 


{{PUT LENGTH IN MAILBOX 


032772 


012737 


000004 


001200 




MOV 


#4.*MSGTYPE 


{{TELL APT TO TAKE MSG. 


033000 


000413 








BR 


5$ 


{{PUT MSG ADDR IN JSR LINKAGE 


033002 


017637 


000004 


033026 


3i: 


MOV 


a4CSP).4$ 


033010 


062766 


OC0002 


000004 




ADO 


#2.4(SP) 


{ {BUMP RETURN ADDRESS 
{{PUSH 177776 ON STACK 


033016 


013746 


177776 






MOV 


\llllb. CSP) 


033022 


004737 


033120 






JSR 


PC* TYPE 


{{CALL TYPE MACRO 


033026 


000000 






4$: 


.WORD 


0 





Nil 
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.EQ 0143 



033030 








5$: 






033030 


105737 


033116 




1 A * 

lOf : 


TC TD 

TSTB 


♦ rrLb 


033034 


001416 








D C A 


12 » 


033036 


AAC "7 * ^ 

005737 


001220 






TCT 


♦ tNv 


033042 


AA 1 1 V 

001413 








ocn 


12* 


033044 


005737 


AA 1 ^AA 
001200 




1 1 A . 

11$ : 


TCT 

lb 1 


♦Hbb 1 Trt 


033050 


AA1 T ^c 

0O1375 








Okie 

bNt 


lit 


09903£ 


A1 ICtI 

017637 


AAAAAil 






nUV 


rvA ^ CD ^ tCATAI 


033060 


062766 


AAAAAO 


AAAAAil 






AO il ^' CD "Y 

1 4 1 br ) 


033066 


005237 


001200 






INC 


$MSGTYPE 






v«7 XO 




1 Pi • 






033076 


105037 


033115 






CLRB 


$LFLG 


033102 


105037 


033114 






CLRB 


JMFLG 


033106 


012601 








MOV 


CSP)*.R1 


033110 


012600 








MOV 


CSP)*,RO 


033112 


000207 








RTS 


PC 


033114 


000 






*MFLG: 


.BYTE 


0 


033115 


000 






$LFLG: 


.BYTE 


0 


033116 


000 






*FFLG: 


.BYTE 
.EVEN 


0 



4955 



000200 
000001 
000100 
000040 











; * 


TYPE 


.MESADR 










;«0R 












; * 


TYPE 












; * 


MESADR 




033120 


105737 


001157 




♦TYPE: 


TSTB 


*TPFLG 


033124 


100002 








8PL 


1$ 


033126 


000000 








HALT 




033130 


000430 








BR 


3$ 


033132 


010046 






1*: 


MOV 


RO.-CSP) 


033134 


017600 


000002 






MOV 


a2(SP).R0 


033140 


122737 


000001 


001220 




CMPB 


#APTENV.$ENV 


033146 


001011 








B^C 


62$ 


033150 


132737 


000100 


001221 




BITS 


*APTSPOOL , $ENVM 


033156 


001405 








BEQ 


62$ 


033160 


010037 


033170 






MOV 


R0.61$ 


033164 


004737 


032660 






JSR 


PC,$ATY3 


033170 


000000 






61$: 


.UORD 


0 


033172 


132737 


000040 


001221 


62$: 


BITB 


#APTCSUP.$ENVM 


033200 


001003 








BNE 


60$ 


033202 


112046 






2$: 


MOVB 


(R0)*.-(SP) 


033204 


001005 








BNE 


4$ 


033206 


005726 








TST 


CSP)* 



SHOULD REPORT FATAL ERROR? 
Ih NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR * 

J ;BUMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 

fatal flag 

;n 

APT SIZE -200 
APTENV'OOl 
APTSPOOL-100 
APTCSUP-040 
.SBTTL TYPE ROUTINE 

•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
♦NOTEl: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

♦N0TE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

♦N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL : 

*1) USING A TRAP INSTRUCTION 

s 5 MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 
RUNNING IN APT MODE 
NO, GO CHECK FOR APT CONSOLE 
SPOOL MESSAGE TO APT 
NO, GO CHECK FOR CONSOLE 
SETUP rCSSAGE ADDRESS FOR APT 
SPOOL r€SSAGE TO APT 
s MESSAGE ADDRESS 
APT CONSOLE SUPPRESSED 
YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 
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033210 


012600 






60*: 


MOV 


(SP)..RO 


033212 


062716 


000002 




3«: 


ADO 


♦2.(SP) 


033216 


000002 








RTI 




033220 


122716 


000011 




4*: 


CMPB 


*HT.(SP) 


033224 


001430 








BEQ 


8) 


033226 


122716 


000200 






CMPB 


♦CRLF.(SP) 














5 J 


033234 


005726 








TST 


(SP)» 


033236 


104401 








TYPE 




033240 


001175 








$CRLF 




033242 


105037 


033450 






CLRB 


$CHARCNT 


033246 


000755 








BR 


2\ 


033250 


004',37 


033332 




5$: 


JSR 


PC.^TYPEC 


033254 


123726 


001156 




6»: 


CMPB 


$FILLC,(SP)» 


033260 


001350 








BNE 


2\ 


033262 


013746 


001154 






MOV 


♦NULL. (SP) 


033266 


105366 


000001 






DECB 


KSPJ 


033272 


002770 








BLT 


6$ 


033274 


004737 


033332 






JSR 


PC.»TYPEC 


033300 


105337 


033450 






DECB 


$CHARCNT 


033304 


000770 








BR 


7$ 










J HORIZONTAL TAB 


PROCESSOR 


033306 


112716 


000040 




0$ : 


MOVB 


»' ,(SP) 


033312 


004737 


034332 




9$: 


JSR 


PC, $TYPEC 


033316 


132737 


000007 


033450 




BITB 


*7.*CHARCNT 


033324 


001372 








BNE 


9* 


033326 


005726 








TST 


(SP)» 


033330 


000724 








BR 


2* 


f*3l332 








♦TYPEC: 






033332 


105777 


145606 






TSTB 


aiTKS 


033336 


100022 








BPL 


10$ 


033340 


017746 


145602 






MOV 


a$TKB. (SP) 


033344 


042716 


177600 






BIC 


*1 77600. (SP) 


033350 


122716 


000023 






CMPB 


#$XOFF,(SP) 


033354 


001012 








BNE 


102$ 


033356 








101*: 






033356 


105777 


145562 






TSTB 


a$TKS 


033362 


100375 








BPL 


101$ 


033364 


117716 


145556 






MTVB 


a$TKB.(SP) 


033370 


042716 


177600 






BIC 


*177600,(SP) 


033374 


122716 


000021 






CMPB 


#$XON.(SP) 


033400 


001366 








BNE 


101$ 


033402 








10?» : 






033402 


005726 








TST 


(SP)* 


033404 








10$: 




033404 


105777 


145540 






TSTB 


a$TPS 


035410 


100375 








BPL 


10$ 


033412 


116677 


000002 


145532 




MOVB 


2(SP).a$TPB 


033420 


122766 


000015 


000002 




CMPB 


#CR.2(SP) 


033426 


001003 








BNE 


1$ 


033430 


105037 


033450 






CLRB 


$CHARCNT 


033434 


000406 








BR 


$TYPEX 


033436 


122766 


000012 


000002 


1$: 


CMPB 


•LF,2(SP) 


033444 


001402 








BEQ 


$TYPEX 


033446 


105227 








INCB 


(PC)* 


033450 


000000 






<CHARCNT: .WORD 


0 
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5 ; RESTORE RO 

{ s ADJUST RETURN PC 

; sRETURN 

s ! BRANCH IF <HT> 

:; BRANCH IF NOT <CRLF> 

;iPOP <CR><LF> EOUIV 
! J TYPE A CR AND LF 

i; CLEAR CHARACTER COUNT 

i:GET NEXT CHARACTER 

i:GO TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

! :IF NO GO GET NEXT CHAR. 

;:GET » OF FILLER CHARS. NEEDED 

s:AND THE NULL CHAR. 

jiDOES A NULL NEED TO BE TYPED? 

; ;BR IF NO- GO POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

! iDO NOT COUNT AS A COUNT 

siLOOP 

REPLACE TAB WITH SPACE 
:iTYPE A SPACE 
; J BRANCH IF NOT AT 
;:TAB STOP 

: jPOP SPACE OFF STACK 
::GET NEXT CHARACTER 

jsCHAR IN KYBD BUFFER? 
i ;BR IF NOT 
::GET CHAR 

: J STRIP EXTRANEOUS BITS 
;sUAS CHAR XOFF 
:{BR IF NOT 



s;UAIT FOR CHAR 

:sGET CHAR 
J! STRIP IT 
i;UAS IT XON? 
) iBR IF NOT 

!;FIX STACK 

! sUAIT UNTIL PRINTER IS READY 

;:LOAD CHAR TO BE TYPED INTO DATA REG. 

;;IS CHARACTER A CARRIAGE RETURN? 

: {BRANCH IF NO 

j;YES -CLEAR CHARACTER COUNT 

; J EXIT 

;jIS CHARACTER A LINE FEED? 

; ; BRANCH IF YES 

5 {COUNT THE CHARACTER 

i {CHARACTER COUNT STORAGE 



MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJDOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJDOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJOOOl 
MJDOOl 

iMJOOOl 
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COKOOeO KOJll-OA CLUSTER OIAG. 
TYPE ROUTINE 

033452 000207 
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$TYPEX- RTS PC 

.SBTTl' binary to octal (ASCII) AND TYPE 

•THIS ROUTINE IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 6 DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

♦JTYPOS -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
♦CALL : 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM. (SP) 

N 
i1 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

M-1 OR 0 

!;1'TYPE LEADING ZEROS 
!:0-SUPPRESS LEADING ZEROS 



♦ HYPON 
♦*TYPOS OR 
♦CALL : 

♦ MOV 

♦ TYPON 



ENTER HERE 
$TYPOC 



TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 



NUM. (SP) jsNUMBER TO BE TYPED 

;!CALL FOR TYPEOUT 



♦*TYPOC-- -ENTER HERE FOR TYPEOUT 
♦CALL ; 



OF A 16 BIT NUMBER 













nu V 


Ml M . C CD t 


SNUTTDCn lU DC I TrtU 
















;LnLL run 1 TKtUv/l 


wo 


vX ' D**0 


\J\j\J\J\Jv 






rnJV 


af CD ^ C QD 1 . 
ay. Or J , - y. Or J ; 


;rlLi\Ur' 1 nt nuLt 


03346'' 


116637 


000001 


033677 




MOVB 


1(SP).$0FILL ; 


:L0AD ZERO FILL SWITCH 


033466 


112637 


033701 






MOVd 


(SP)*.$OMODE*1 ; 


;NUMBER OF DIGITS TO TYPE 


033472 


062716 


000002 






ADO 


#2.(SP) ; 


; ADJUST RETURN ADDRESS 


033476 


000406 








BR 


J TYPON 


033500 


112737 


000001 


033677 


*TYP0C: 


MOVB 


#1,*0FILL : 


jSET THE ZERO FILL SUITCH 


033506 


112737 


000006 


033701 




MOVB 


*6.»0M00E*1 ; 


:SET FOR SIX(6) DIGITS 


033514 


112737 


000005 


033676 


$TYPON: 


MOVB 


#5.»0CNT i 


.•SET THE ITERATION COUNT 


033522 


010346 








MOV 


R3.-(SP) ! 


:SAVE R3 


033524 


010446 








MOV 


R4.-(SP) J 


;SAVE R4 


033526 


010546 








MOV 


R5.-(SP) : 


•SAVE R5 


033530 


113704 


033701 






MOVB 


$0M00E*1.R4 : 


IgET THE NUMBER OF DIGITS TO TYPE 


033534 


005404 








NEG 


R4 


033536 


062704 


000006 






ADD 


«6,R4 


s SUBTRACT IT FOR MAX. ALLOUED 


033542 


110437 


033700 






MOVB 


R4 , >0nODE ; 


;SAVE IT FOR USE 


033546 


113704 


033677 






MOVB 


♦0FILL.R4 : 


5 GET THE ZERO FILL SUITCH 


033552 


016605 


000012 






MOV 


12(SP).R5 J 


J PICKUP THE INPUT NUMBER 


033556 


005003 








CLR 


R3 : 


.•CLEAR THE OUTPUT WORD 


033560 


006105 






1*: 


ROL 


R5 ; 


; ROTATE MSB INTO "C 


033562 


000404 








BR 


31 ; 


iGO DO MSB 


033564 


006105 






2$: 


ROL 


R5 


:FORM THIS DIGIT 


033566 


006105 








ROL 


R5 


033570 


006105 








ROL 


R5 




033572 


010503 








MOV 


R5,R3 




033574 


006103 






Zi: 


ROL 


R3 : 


;GET LSB OF THIS DIGIT 


033576 


105337 


033700 






C..CB 


$0M00E 


:TYPE THIS DIGIT? 


033602 


100016 








BPL 


7% i 


:BR IF NO 


033604 


042703 


177770 






BIC 


#1 77770. R3 ! 


.-GET RID OF JUM< 


033610 


001002 








BNE 


41 


:TEST FOR 0 


033612 


005704 








TST 


R4 i 


; SUPPRESS THIS 0? 


033614 


001403 








BEQ 


5$ : 


sBR IF YES 


033616 


005204 






4$: 


INC 


R4 { 


; DON'T SUPPRESS ANYMORE O'S 


033620 


052703 


000060 






BIS 


#'0,R3 ! 


{MAKE THIS DIGIT ASCII 
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SEQ 0146 



4957 



033624 


052703 


000040 


5%: 


BIS 


«' .R3 5 


MAKE ASCII IF NOT ALREADY 


033630 


110337 


033674 




MOVB 


R3.8$ : 


SAVE FOR TYPING 


033634 


104401 


033674 




TYPE 


.8) : 


GO TYPE THIS DIGIT 


033640 


105337 


033676 


li: 


DECB 


JOCNT ! 


COUNT BY 1 


033644 


003347 






BGT 


2% i 


BR IF MORE TO DO 


033646 


002402 






BLT 


6$ : 


BR IF DONE 


033650 


005204 






INC 


R4 ; 


INSURE LAST DIGIT ISN T A BLANK 


033652 


000744 






BR 


2» ; 


GO DO THE LAST DIGIT 


033654 


012605 




6$: 


MOV 


(SP)*.R5 


RESTORE R5 


033656 


012604 






MOV 


(SP)».R4 ! 


RESTORE R4 


033660 


012603 






MOV 


(SP)».R3 ; 


.RESTORE R3 


033662 


016666 


000002 000004 




MOV 


2(SP).4(SP) ; 


SET THE STACK FOR RETURNING 


033670 


012616 






MOV 


(SP)».(SP) 




033672 


000002 






RTI 


RETURN 


033674 


000 




8$: 


.BYTE 


0 \ 


STORAGE FOR ASCII DIGIT 


033675 


000 






.BYTE 


0 J 


TERMINATOR FOR TYPE ROUTINE 


033676 


000 




»OCNT: 


• BYTE 


0 ! 


OCTAL DIGIT COUNTER 


033677 


000 




♦OFILL: 


.BYTE 


0 ! 


ZERO FILL SWITCH 


033700 


000000 




»0MODE: 


.UORD 


0 i 


NUMBER OF DIGITS TO TYPE 








.SBTTL 


CONVERT 


BINARY TO DECIMAL 


AND TYPE ROUTINE 



:*THIS ROUTINE IS USED TO CHANGE A 16 BIT BINARY NUMBER TO A 5 DIGIT 
; ♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
{♦NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
: ♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.♦REPLACED WITH SPACES, 
i *CALL : 

NLW, -(3P) 



033702 

033702 010046 

033704 010146 

033706 010246 

033710 010346 

033712 010546 

033714 012746 020200 

033720 016605 000020 

033724 100004 

033726 005405 

033730 112766 000055 000001 

033736 005000 

033740 012703 034116 

033744 112725 000040 

033750 005002 

033752 016001 034106 

033756 160105 

033760 002402 

033762 005202 

033764 000774 

033766 060105 

033770 005702 

033772 001002 

033774 105716 

033776 100407 

034000 106316 

034002 103003 

034004 116663 000001 177777 



MOV 

;* TYPDS 
$ TYPOS: 

MOV 
MOV 
MOV 
MCV 
MOV 
MOV 
MOV 
BPL 
NEG 
MOVB 

1$: CLR 
MOV 
MOVB 

2$ : CLR 
MOV 

3$: SUB 
BLT 
INC 
BR 

4$: ADD 

TST 
BNE 
TSTB 
BMI 

5$: ASLB 
BCC 
MOVB 



RO.-(SP) 

Rl.-(SP) 

R2,-(SP) 

R3.-(SP) 

R5.-(SP) 

♦20200. -(SP) 

20(SP).R5 

1* 

R5 

#'-.l(SP) 

nO 

*$D6LK.R3 
.(R3)» 

R2 

$DTBL(R0).R1 

R1.R5 

41 

R2 

3$ 

R1.R5 

R2 

5» 

(SP) 
7* 

(SP) 
6) 

1(SP).-1(R3) 



jPUT THE BINARY NUMBER ON THE STACK 
sGO TO THE ROUTINE 

PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADO BACK THE CONSTANT 

CHECK IF BCD DIGIT»0 

FALL THROUGH IF 0 

STILL DOING LEADING 0 S? 

BR IF YES 

NSD? 

BR IF NO 

YES- -SET THE SIGN 
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see 0147 



4958 



034012 


052702 


000060 




61 : 


dI5 


• 0 , R2 


054016 


05^ lOi£ 


A/\AA^ A 

0OOO40 




71 : 


QTC 

bib 


* ,r<d 


0S40cc 


f 1 AO^T 

110<:<:o 








MAViD 

nuvB 




A7^ AOil 


AACTOA 
003 1^0 








T CT 

1 b T 


( DA ^ i 
\ HO J ♦ 




A0AA07 


AAAAl A 






PHD 


DA A 1 A 
HO , fflU 


05*05« 


AAO'7A^ 

OOc f4o 








Dl T 














Du 1 






Al A^AO 








nuv 


D^ DO 




UUU ' DA 








no 


Of 












1 O 1 D 


f CD 














9$ 






1 77777 


1. 1 1 1 to 




nuvo 


KSP). 2(r; 










iff ! 


LLKD 


(ox 












nuv 














nuv 


r CD ^ OX 












Mnu 














Mnu 

nuv 




034066 


012600 








MOV 


(SP)* RO 


054070 


104401 


034116 






TYPE 


.IDBLK 


034074 


016666 


000002 


000004 




MOV 


2(SP).4(SP) 


034102 


012616 








MOV 


CSP)*.tSP) 


034104 


000002 








RTI 


034106 


023420 






$DTBL : 


10000. 




034110 


001750 








1000. 




034112 


000144 








100. 




034114 


000012 








10. 




034116 








$DBLK: 


.BLKU 


4 



ASCII 

NOT ALREADY A DIGIT 
IN THE OUTPUT BUFFER 



034126 


022737 


000176 


001140 


$CKSUR: 


CMP 


OSUREG.SUR 


034134 


001074 








BNE 


15* 


034136 


105777 


145002 






TSTB 


3»TKS 


034142 


100071 








BPL 


15» 


034144 


117746 


14477S 






MOVB 


a»TKB,-(SP) 


034150 


042716 


177600 






SIC 


»tCl77,(SP) 


034154 


022726 


000007 






CMP 


t7.(SP)* 


034160 


001062 








BNE 


15* 


034162 


123727 


001134 


000001 




CMP8 


$ AUTOS. #1 


034170 


001456 








BEQ 


151 


034172 


104401 


034663 






TYPE 


. ICNTL6 


034176 


104401 


034670 




fGTSUR: 


TYPE 


.$MSUR 


034202 


013746 


000176 






MOV 


SUREG. (SP) 


034206 


104402 








TYPOC 


034210 


104401 


034701 






TYPE 


.♦MNEU 


034214 


005046 






19* : 


CLR 


-(SP) 


034216 


005046 








CLR 


-(SP) 


034220 


10577 7 


144720 




7$: 


TSTB 


SHKS 


034224 


100375 








BPL 


7* 


034226 


117746 


144714 






MOVB 


a»TKB, (SP) 


034232 


042716 


177600 






SIC 


#tC177,(SP) 


034236 


021627 


000025 




9$: 


CMP 


(SP).#25 



MAKE THE BCD DIGIT 
MAKE IT A SPACE IF 
PUT THIS CHARACTER 
JUST INCREMENTING 
CHECK THE TABLE INDEX 
GO 00 THE NEXT DIGIT 
GO TO EXIT 
GET THE LSD 
GO CHANGE TO ASCII 
WAS THE lSD the FIRST NON ZERO? 
BR IF NO 

YES SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOU TYPE THE NUMBER 

ADJUST THE STACK 

s RETURN TO USER 



SBTTL TTY INPUT ROUTINE 
: *************************************************************** 

ENABL LS6 

; ************************ 

♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
♦WHEN OPERATING IN TTY FLAG MODE. 

IS THE SOFT SWR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO. DON'T WAIT AROUND 
SAVE THE CHAR 
STRIP-OFF THE ASCII 
IS IT A CONTROL G? 
NO. RETURN TO USER 
ARE WE RUNNING IN AUTO MODE? 
BRANCH IF YES 
ECHO THE CONTROL G (tG) 
TYPE CURRENT CONTENTS 
SAVE SWREG FOR TYPEOUT 
GO TYPE--OCTAL ASCIKALL DIGITS) 
PROMPT FOR NEW SWR 
CLEAR COUNTER 
THE NEW SWR 
CHAR THERE? 
IF NOT TRY AGAIN 
PICK UP CHAR 
MAKE IT 7-BIT ASCII 
IS IT A CONTROL U? 
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SEQ OlA' 



034242 


001005 








BNE 


10$ 




BRANCH IF NOT 


034244 


104401 


034656 






TYPE 


. $CNTLU 




YES. ECHO CONTROL U (tu) 


034250 


062706 


000006 




201: 


ADD 


«).SP 




IGNORE PREVIOUS INPUT 


034254 


000757 








BR 


19$ 




LET'S TRY IT AGAIN 


034256 


021627 


000015 




101: 


CMP 


CSP).«15 




IS IT A <CR>? 


034262 


001022 








BNE 


16$ 




BRANCH IF NO 


034264 


005766 


000004 






TST 


4(SP) 




YES. IS IT THE FIRST CHAR? 


034270 


001403 








6EQ 


11$ 




BRANCH IF YES 


034272 


016677 


000002 


144640 




MOV 


2(SP).aSUR 




SAVE NEW SUR 


034300 


062706 


000006 




Hi: 


ADO 


#6.SP 




CLEAR UP STACK 


034304 


104401 


001175 




14$: 


TYPE 


. $CRLF 




ECHO <CR> AND <LF> 


034310 


123727 


001135 


000001 




CMPB 


$INTAG,#1 




RE ENABLE TTY KBO INTERRUPTS? 


034316 


001003 








BNE 


15$ 




BRANCH IF NOT 


034320 


012777 


000100 


144616 




MOV 


«100,9$TKS 




RE ENABLE TTY KBD INTERRUPTS 


034326 


000002 






i5»: 


RTI 






RETURN 


034330 


004737 


033332 




16$: 


JSR 


PC.$TYPEC 




ECHO CHAR 


034334 


021627 


000060 






CMP 


(SP).#60 




CHAR < 0? 


034340 


002420 








BLT 


18$ 




BRANCH IF YES 


034342 


021627 


000067 






CMP 


(SP).#67 




CHAR > 7? 


034346 


003015 








BGT 


18$ 




BRANCH IF YES 


034350 


042726 


000060 






BIC 


*60.(SP)* 




STRIP-OFF ASCII 


034354 


005766 


000002 






TST 


2(SP) 




IS THIS THE FIRST CHAR 


034360 


001403 








BEQ 


17$ 




BRANCH IF YES 


034362 


006316 








ASL 


(SP) 




NO, SHIFT PRESENT 


034364 


006316 








ASL 


(SP) 




CHAR OVER TO MAKE 


034366 


006316 








ASL 


(SP) 




ROOM FOR NEU ONE. 


034370 


005266 


000002 




17$: 


INC 


2(SP) 




KEEP COUNT OF CHAR 


034374 


056616 


177776 






BIS 


2(SP).(SP) 




,SET IN NEW CHAR 












BR 


7$ 




GET THE NEXT ONE 


034402 


104401 


001174 




18$: 


TYPE 


.$QUES 




TYPE ?<CR><LF> 


034406 


000720 






.OSABL 


BR 
LSB 


20$ 




SIMULATE CONTROL U 










• • *************************************************************** 










;*THIS ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 










;*CALL: 


















ROCHR 






! INPUT A SINGLE CHARACTER FROM THE 










:* 


RETURN HERE 




CHARACTER IS ON THE STACK 










:* 








[WITH PARITY BIT STRIPPED OFF 



034410 
034412 
034420 
034424 
034426 
034434 
034442 
034450 
034452 
034456 
034460 
034464 
034470 
034474 
034476 
034500 
034506 
034510 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
001744 
026627 



TTY 



000004 
144520 

144514 

177600 
000004 

144466 

144462 

177600 
000021 



000004 
000004 



000002 



000004 
000004 
000023 



$RDCHR: MOV 
MOV 



1$: 



2$: 



000021 
000140 



3$: 



TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BEQ 

CMP 



(SP).-(SP) 
4(SP),2(SP) 

a$TKS 
1$ 

a$TKB.4(SP) 
#tC<177>.4(SP) 
4(SP).«23 
3< 

9*TKS 
2> 

a$TKB.-(SP) 

#tC177.(SP) 

(SP)*.*21 

21 

1« 

4(SP).0»XON 
II 

4(SP).#140 



PUSH DOWN THE PC 

SAVE THE PS 

UAIT FOR 

A CHARACTER 

READ THE TTY 

GET RIO OF JUNK IF ANY 

IS IT A CONTROL -S? 

BRANCH IF NO 

UAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL Q? 

IF NOT DISCARD IT 

YES. RESUME 

IS IT A RANDOM XON? 

BRANCH IF YES 

IS IT UPPER CASE? 



:RAN001 
:RAN001 



Gi2 

COKDOeO KDJll-DA CLUSTER DIAG. 

lU INPUT ROUTINE 

034516 002407 

054520 026627 000004 

034526 003003 

034530 042766 000040 

034536 000002 
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SEGi 014 



000175 
000004 



4959 



034712 011646 

034714 016666 000004 

034722 010046 

034724 010146 



000002 



4$: 

:;**** 

;*THIS 
: *CALL 
;* 
;* 
:* 



BLT 4$ : J BRANCH IF YES 

CMP 4(SP).0175 !iIS IT A SPECIAL CHAR? 

BGT 4$ ; J BRANCH IF YES 

BIC #40.4(SP) ;;MAKE IT UPPER CASE 

RTI ; ;G0 BACK TO USER 

*********************************************************** 
ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 

RETURN HERE 





010346 






«Dni TM. 


OTA SAP 


01P703 


034646 




XT* 


034546 


02P703 


034656 






034552 


101405 








034554 


104410 








034556 


112613 








034560 


122713 


000177 




10$ : 


034564 


001003 

wx w«* 








034566 


104401 


001174 




4$ : 


034572 


000763 








034574 


111337 


034644 




3*: 


034600 


104401 


034644 






034604 


122723 


000015 






034610 


001356 








034612 


105063 


mm 






034616 


104401 


001176 






034622 


012603 








034624 


011646 








034626 


016666 


000004 


000002 




034634 


012766 


034646 


000004 




034642 


000002 








034644 


000 






9*: 


034645 


000 








034646 








$TTYIN: 


034656 


136 


125 


015 


♦CNTLU: 


034661 


012 


000 






034663 


136 


107 


015 


iCNTLG: 


034666 


012 


000 






034670 


015 


012 


123 


mSUR: 


034673 


127 


122 


040 




034676 


075 


040 


000 




034701 


040 


040 


116 


$MNEU: 


034704 


105 


127 


040 




034707 


075 


040 


000 





MOV 

MOV 

CMP 

BLOS 

RDCHR 

novB 

CMPB 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCIZ 



R3. (SP) 
**TTYIN.R3 
*$TTYIN*8. .R3 
4$ 

(SP)^.(R3) 

tfl77.(R3) 

3$ 

,$QUES 
U 

(R3).9* 
.9* 

#15. (R3)* 
2* 
1(R3) 

(SP)*.R3 
(SP),-(SP) 
4(SP).2(SP) 
#*TTYIN.4(SP) 

0 
0 
8. 

/tU/<15><12> 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

TERMINATOR UILL BE A BYTE OF ALL 0' S 

SAVE R3 

GET ADDRESS 

BUFFER FULL? 

BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
SKIP IF NOT 
TYPE A •?' 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERMINATOR 

RESERVE 8 BYTES FDR TTY INPUT 
CONTROL "U" 



!: CONTROL "G" 



, ASCIZ <15><12>/SUR « / 



.ASCIZ / NEW » / 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

:*THIS ROUTINE UILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
; ♦CHANGE IT TO BINARY. 
; *CALL 



i* 

!* 

$RDOCT: 



RDOCT 
RETURN HERE 



MOV 
MOV 
MOV 
MOV 



(SP). (SP) 
4(SP).2(SP) 
RO.-(SP) 
Rl.-(SP) 



READ AN OCTAL NUMBER 
LOU ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS ARE IN »HIOCT 
PROVIDE SPACE FOR THE 
INPUT NUMBER 
PUSH RO ON STACK 
PUSH Rl ON STACK 



Hi2 
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READ AN OCTAL NUMBER FROM THE TTY 



SEQ CIS 



4%0 



034726 


010246 






MOV 


R2. (SP) 


> 


PUSH R2 ON STACK 


034730 


104411 




1$: 


ROLIN 




• 


READ AN ASCIZ LINE 


054732 


012600 






MOV 


(SP)* ,R0 


• 


GET ADDRESS OF 1ST CHARACTER 


054734 


005001 






CLR 


Rl 


s 


CLEAR DATA UORO 


034756 


005002 






CLR 


R2 






034740 


112046 




2% I 


MOVB 


(RO)».-(SP) 


• 


PICKUP THIS CHARACTER 


034742 


001412 






BEQ 


3< 


• 


IF ZERO GET OUT 


034744 


006301 






ASL 


Rl 


t 


*2 


034746 


006102 






ROL 


R2 






034750 


006301 






ASL 


Rl 


: 1*4 


054752 


006102 






ROL 


R2 






054754 


006301 






ASL 


Rl 


s 


*8 


054 /5o 


006102 






ROL 


R2 




054 /60 


042716 


177770 




Die 


*tC7 , (SP) 


• 


STRIP THE ASCII JUNK 


034 


/\i 

062601 






ADD 


( SP)* ,R1 


i 


ADO IN THIS DIGIT 


W j*» (OO 








BR 


2$ 


! 


LOOP 


034770 


005726 




3$: 


TST 


(SP)* 


ff 


CLEAN TERMINATOR FROM STACK 


034772 


010166 


000012 




MOV 


R1.12(SP) 


8 


SAVE THE RESULT 


034776 


010237 


035012 




MOV 


R2,$HI0CT 






035002 


012602 






MOV 


(SP)*.R2 


f 


POP STACK INTO R2 


035004 


012601 






MOV 


(SP)*.R1 


i 


POP STACK INTO Rl 


035006 


012600 






MOV 


(SP)*.RO 


• 


.POP STACK INTO RO 


035010 


000002 






RTI 




1 


RETURN 


035012 


000000 




♦HIOCT : 


.WORD 


0 


t 


HIGH ORDER BITS GO HERE 








.SBTTL 


TRAP DECODER 







035014 010046 

035016 016600 000002 

035022 005740 

035024 111000 

035026 006300 

035030 016000 035050 

035034 000200 

035036 011646 

035040 016666 000004 000002 

035046 000002 



♦THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX 'HROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
.♦GO TO THAT ROUTINE. 

JTRAP: MOV RO.-(SP) ;;SAVERO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
;;G0 TO ROUTINE 



MOV 

MOV 

TST 

MOVB 

ASL 

MOV 

RTS 



RO.-(SP) 
2(SP),R0 

(RO) 
(RO),RO 
RO 

$TRPAD(RO).RO 
RO 



;!THIS IS USE TO HANDLE THE "GETPRI" MACRO 



MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 



♦TRAP2: MOV (SP). (SP) 
MOV 4(SP).2(SP) 
RTI 

SBTTL TRAP TABLE 

'♦THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
♦BY THE "TRAP" INSTRUCTION. 
ROUTINE 



035050 


035036 


$TRPA0: .WORD 


♦TRAP2 




035052 


033120 


♦ TYPE 


» 


CALL -TYPE 


TRAP* 1(104401) 


035054 


033500 


♦TYPOC 




CALL«TYPOC 


TRAP*2( 104402) 


035056 


033454 


♦TYPOS 




CALL "TYPOS 


TRAP* 3(104403) 


035060 


033514 


$TYPON 


• 


CALL-TYPON 


TRAP ♦4(104404) 


035062 


033702 


♦TYPDS 


i 


CALL-TYPDS 


TRAP* 5(104405) 


035064 


034176 


♦GTSWR 


• 


CALL-GTSWR 


TRAP*6( 104406) 


035066 


034126 


♦CKSWR 


• 


CALL-CKSW 


TRAP*7( 104407) 


035070 


034410 


$RDCHR 




CALL-RDCHR 


TRAP* 10(104410) 


035072 


034540 


♦RDLIN 




CALL-RDLIN 


TRAP.IK 104411) 


035074 


034712 


♦RDOCT 




CALL*RDOCT 


TRAP* 12(104412) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 

TYPE DECIMAL NUMBER (WITH SIGN) 

GET SOFT SWR SETTING 

TEST FOR CHANGE IN SOFT -SWR 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 



112 

COKDOeO KDJll-DA CLUSTER DIAG. 
POUER OOUN AND UP ROUTINES 
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SCO 0 



035076 
0351C4 
035112 
035114 
035116 
035120 
035122 
035124 
035126 
035132 
035136 
035144 
035146 



035150 
035156 
035162 
035166 
035172 
035174 
035200 
035202 
035204 
035206 
035210 
035212 
035214 
035222 
035230 
035232 
035234 
035236 
035240 
035242 
035244 
035247 
035252 



4%3 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
035244 
000002 
000000 
000776 
000000 
015 
117 
122 

000001 



035236 
000340 



000024 
000026 



.SBTTL 

; 

: POWER 
$PWR[)N: 



144006 
035242 
035150 



035236 
035242 
035242 
035242 

143740 



000024 



000024 



POWER DOWN AND UP ROUTINES 
********************************************************** 

DOWN ROUTINE 

{SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH RJ ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH 9SWR ON STACK 
SAVE SP 
;SET UP VECTOR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#$ILLUP,a#PWRVEC 

tf340.9«PWRVEC*2 

RO.-(SP) 

Rl. (SP) 

R2.-(SP) 

R3. (SP) 

R4.-(SP) 

R5.-(SP) 

aSWR.-(SP) 

SP,»SAVR6 : 

«$PWRUP.S«PWRVEC 



: ;HANG UP 



; POWER UP ROUTINE 
$PWRUP 



1$: 



035076 
000340 



000024 
000026 



012 
127 
000 



120 
105 



♦PWRMG: 

♦ILLUP: 

$SAVR6: 
$P0UER: 



MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.WORD 
RTI 
HALT 
BR 
0 

.ASCIZ 



.EVEN 
.END 



«IILLUP.9«PWRVEC 
$SAVR6,SP 
*SAVR6 
$SAVR6 
1$ 

(SP)«.9SUR 

(SP)*.R5 

(SP)*,R4 

(SP)*.R3 

(SP)*.R2 

(SP)*.R1 

(SP)*.RO 

«iPURDN.9«PWRVEC 

«340.S«PWRVEC*2 

$POWER 



< 15 X 12 > "POWER" 



isSET FOR FAST DOWN 
jGET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO aSWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 
REPORT THE POWER FAILURE 
; POWER FAIL MESSAGE POINTER 

THE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



Jl2 
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Symbol tabl« 



ABASE 


• 000000 


APRIOR' 


ABORT 


032512 


APTCSU- 


ABORTC 


032544 


APTENV- 


ABORTE 


032610 


APTSIZ- 


ABORTZ 


032634 


APTSPO" 


ACDUl 


■ 000000 


ASUREG* 


AC0U2 


■ 000000 


ATESTN- 


ACPUOP 


• 000000 


AUNIT » 


ACT CHS 


002410 


AUSUR » 


ACQ 


■•000000 


AVECT1« 


ACl 


■•000001 


AVECT2" 


AC2 ' 


■•000002 


BA 


AC3 ' 


'•000003 


BA2 


MC4 ' 


'•000004 


BCR 




'JK)Q0005 


BCSR = 


AC6 " 


•000006 


BDR = 


ML ' ■ 


•00000 ^ 


BtGROn* 


ADO 1 HP 


030376 


BITO * 


Af^fMJ/^ * 


oooooo 


O T T A A — 




OOOOOO 


D T T A < — 

BITOl * 


Annul f\m 


OOOOOO 


BIT02 « 


Annul 1 ■ 


OOOOOO 


dIT03 * 


Annul 


OOOOOO 


dIT04 » 


Anni It T ■ 


OOOOOO 


dIT05 ■ 


Annul A ■ 


OOOOOO 


Dl TOO * 


Annt If c« 


OOOOOO 


BIT07 * 


Anfiuo ■ 


uuoooo 


DTTAO « 




AAAAAA 

OOOOOO 


D T T AO • 
Dl 1 07 ■ 


Anniiii * 


OOOOOO 


BITl » 


MUUW3 ■ 


AAAAAA 

OOOOOO 


DTT1 A * 

□IT 10 ■ 


Annu^ • 


AAAAAA 

OOOOOO 


DTT 1 * a 

□ I 111 ■ 


Annu"7 • 


AAAAAA 

OOOOOO 


BIT12 ■ 


AnniiA • 
nUL/Uo * 


AAAAAA 

OOOOOO 


OTT1 T a 

BIT13 * 


Annuo « 


AAAAAA 

OOOOOO 


DTTl A a 
BIT14 * 


AncurTa 

HUtVL 1 " 


AAAAAA 

OOOOOO 


OTT 4 C a 


AnCtIM ■ 


AAAAAA 

OOOOOO 


Bl 12 * 


Ani CD 


AAAAilA 

ou*»o«#o 


BIT 3 ■ 


ACklVI a 

MtNV ■ 


AAAAAA 

OOOOOO 


BIT4 ■ 




AAAAAA 

OOOOOO 


DTTC _ 

BIT5 ■ 


ACATAI m 


AAAAAA 

OOOOOO 


BIT6 ' 


Al 1 TTD 
HULL In 


AAT 1 

0051 JO 


BIT7 « 


AMAnOI > 


AAAAAA 

OOOOOO 


BITo * 


AMAnOOa 


AAAAAA 

OOOOOO 


n T T A _ 

BIT9 » 


AMAnOT. 


AAAAAA 

OOOOOO 


BPTvEC" 




AAAA/VA 

OOOOOO 


BTEXP 


AMAMC1 a 


OOOOOO 


BTRES 


AMAMC^a 


OOOOOO 


CCHPAS 






fro B 


AMAMS4- 


OOOOOO 


CKSUR - 


AHSGAO- 


OOOOOO 


CLKCNT 


AMSGLG- 


OOOOOO 


COUNT 


AMSGTY- 


OOOOOO 


CPEREG" 


AMTYPl- 


OOOOOO 


CR 


AMTYP2- 


OOOOOO 


CRLF » 


AMTYP3- 


OOOOOO 


CSRl 


AMTYP4- 


OOOOOO 


CSR12 


APASS • 


OOOOOO 


CSR2 
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OOOOOO 


CSR22 


002366 


000040 


CURADO 


004054 


000001 


CURDAT 


004046 


000200 


DATA 


002344 


000100 


DATA2 


002374 


OOOOOO 


DATVER 


030556 


OOOOOO 


DATVFR 


030540 


OOOOOO 


DATl 


030570 


OOOOOO 


DCOUNT 


004030 


OOOOOO 


DDISP = 


177570 


OOOOOO 


DELAY 


030610 


002340 


DETFPA 


031544 


002370 


DHl 


025314 


177524 


DH105 


026255 


177520 


DH115 


026307 


177524 


IMJI ^A 

DHl 34 


A^^ M 

026364 


100000 


DH24 


025600 


000001 


DH27 


025644 


OOOOOl 


f\l 1 M 

Dn4 


025341 


000002 


DH41 


TAT 

025707 


000004 


DH43 


025760 


AAAA 1 A 

OOOOlO 


aljji t 
Un47 


026060 


AAAAAA 

000020 


DH5 


025426 


AAAAil A 

000040 


Dno5 


026145 


AAA 4 AA 

OOOlOO 


uHf 


025525 


AAAAAA 

OOOOOO 


Dn72 


A *^ 4 4 

026211 


AAAAAA 

000400 


ATCDl A 

DISrLA 


A A 4 4 il ^ 

001142 


AAl AAA 

001000 


AT COOP 

DISrRt 


AAA 4 Til 

000174 


AAAAAA 

OUOOOci 


nMADA 


ATAl TA 

030130 


AAAAAA 

OOeOOO 




ATAAilC 

030046 


UU4VAA; 




1 f fo7Q 

A'^ 


Al AAAA 

OlOOOO 


AT 4 

DTI 


AO AAAA 

OcOOUO 


nT4 AC 

Ul 103 


02d7o0 


AAAAAA 


AT lie 


026770 


« AAAAA 

lUUOOO 


nT 1 VA 

DTI 30 


A07AAJI 

02r004 


AAAAAA 
000004 


AT 1 VA 

DT134 


027012 


AAAA1 A 

OOUOlO 


AT 1 A 

Dl 14 


AO^CCA 

02d550 


AAAAAA 

OOUUeO 


nT % "7 
Dl 1 ^ 


026562 


AAAAAA 


nTOA 


026574 


AAA4 AA 

OOOlOO 


AT 'IT 

DT27 


02oo04 


AAAAAA 

OOOeOO 


DT35 


026616 


AAAAAA 
00O40O 


nTA 
DT4 


A'^CC 4 A 

026510 


AAl AAA 
OOlOOO 


nTA 4 

DT41 


026o30 


AAAA4 A 
U00014 


nTA V 
DT43 


026640 


AAV 1 /\A 

003104 


AT 

DT47 


026654 


AAT 1 1 A 
003114 


ATC 

DT5 


A^£ 

026522 


AATATil 

003054 


ATCA 

DT50 


026666 


Iff f^O 


U 1 31 




104407 


DT52 


026712 


027530 


0T64 


026724 


003124 


DT65 


026736 


177766 


0T7 


026536 


0C0015 


0T75 


026746 


000200 


EEPAS 


003036 


002334 


EMTSAV 


004060 


002364 


EMTVEC- 


000030 


002336 


EMI 


020617 
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SEQ 0152 



EMIOO 021504 

EMIOI 021542 

EM102 021575 

EM103 021657 

EM104 021732 

EM105 022002 

EM106 022055 

EM107 022133 

EMI 10 022167 

EMI 11 022231 

EMI 12 022307 

EM113 022372 

EMI 14 022456 

EM123 022477 

EM124 022531 

EM125 022623 

EM126 022662 

EM127 022717 

EM130 022761 

EM131 023006 

EM132 023036 

EM135 023074 

EMI 36 023132 

EM137 023174 

EM140 023241 

EM141 023332 

EM142 023415 

EM143 023506 

EM144 023561 

EM145 023636 

EM146 023704 

EM147 023747 

EM150 024024 

EM151 024105 

EM152 024153 

EM153 024235 

EM154 024315 

EM155 024402 

EM156 024455 

EM157 024527 

Em60 024575 

EM161 024617 

EM162 024657 

EM163 024722 

EM164 024766 

EM165 025045 

EM166 025114 

EM167 025162 

EM170 025214 

EM171 025242 

EM172 025273 

EM2 020653 

EM3 020665 

EM51 020677 

EM54 020677 

EM56 020735 

EM57 020761 



E161 021013 
EM63 021042 
EM64 021073 
EM65 021132 
EM71 021202 
EM72 021236 
EM73 021274 
EM74 021320 
EM75 021351 
EM76 021402 
EM77 021452 
ERR 030536 
ERRCNT 003024 
ERRFP 030534 
ERROR - 104000 
ERRVEC- 000004 
ERTYPE 027030 
EXPDAT 004032 
FLAG 003032 
FLO 003066 
FLOAT 003056 
FPVEC " 000244 
FSTADO 004050 
GOODAD 003022 
GTSUR " 104406 
HITMIS- 177752 
HT « 000011 
INIMEM 031012 
INITMM 027246 
INQ22 017352 
lOTVEC- 000020 
JllFLT 031552 
KOPARO" 172360 
KDPARl* 172362 
K0PAR2' 172364 
KDPAR3- 172366 
KDPAR4» 172370 
KDPAR5= 172372 
K0PAR6* 172374 
KDPAR7* 172376 
KDPDRO" 172320 
KOPORl- 172322 
KDPDR2- 172324 
K0P0R3- 172326 
KDPDR4' 172330 
KDPDR5- 172332 
KDPDR6- 172334 
KDPDR7'" 172336 
KIPARO- 172340 
KIPARl- 172342 
KIPAR2" 172344 
KIPAR3» 172346 
KIPAR4» 172350 
KIPAR5- 172352 
KIPAR6« 172354 
KIPAR7- 172356 
KIPDRO* 172300 



COKDOeO KDJll OA 


CLUSTER DIAG. 


MACRO V05.03 


Wednesday 


09 Apr 


Syn^l 


table 










KIPOfll" 


172302 


PIRQT 


017710 


SDPARo* 


172274 


KIP0R2* 


172304 


PIRQVE' 


■ 000240 


SDPAR7= 


172276 


KIP0fi3» 


172306 


POLY = 


120001 


SDPDRO^ 


112220 


KIP0R4- 


172310 


PRO ' 000000 


SDPDR1= 


172222 


KIPDfiS- 


172312 


on 1 


000040 


SDPDR2" 


172224 


KIP0fi6« 


172314 


rK2 ' 


AAA 1 AA 


SDPDR3" 


17222b 


KIPDR7* 


172316 


rH5 ' 


AAA1 il A 
000140 


SDrDH4- 


172230 


KMCR ■ 


177734 


ODA m 


AAA^AA 

OOOcOO 


C AA ADC — 

5UPDR5* 


172232 


LDPARS 


027410 


DOQ > 
rKo * 


AAA OA A 


SDPDR6= 


172234 


UOPDRS 


027440 


rKo " 


AAATAA 


C AOAm — 


172236 


LEOCNT 


002354 


DD7 a 

rn f ■ 


AAATAft 
0VAJ04U 


ccn 


003076 


LF 


000012 




1 7777A, 


5E T nnu 


050676 


LKCNT 


002404 




1 7777fc 


C Tl^* All 


002352 


LKS 


177546 








172240 


LKSFL 


002402 


r Wn Vtl* 


AAAAO^ 

UO*Wc^ 


SlrAHl" 


172242 


LKSINT 


027522 


UccCIH 




5IrMR2" 


1 72244 


LOOP 


005064 








172246 


LOOPIN 


003160 






51rMK4* 


1 722b0 


LOPBAK 


002362 


QAMPAQ 

nnnrnn 


vc f HO** 


CTDAOC«* 

olrMHD" 


172252 


LOUAOO 


003020 


nDuT 


X r r JOc 


CTDAD&S 


X i£cM 


LSTADO 


004052 


QRI F 1 s 


X rD3Uc 


o IrnK f * 


X reesD 


WAIREG- 


177750 


Qrni iMT 


VA^C^ JO 


CTOnOAs 

oxrUKU ■ 


X tddWl 


MASK 


003164 




X 1 1 JOVf 


CTDHDI « 

olr UHx* 


1 f 2202 


MER 


172100 




X rODvw 




1 f 2204 


MERTAG 


003054 


Rnri-iR s 


1 fVddl 1 
Xv**^X ^ 






rWRO • 


177572 


Oni TN a 


10441 1 

XVH^tXX 


oXr UH«»= 


1 7001 A 

1 '2210 


MMRl • 


177574 




10441? 


olrUKS = 


1 700 1 ^ 

1 12212 


MMR2 ■ 


177576 




0O40'^A 


C TDnO£ _ 

olrUKb' 


1 f <:214 


MMR3 - 


172516 




00'^14f) 


CTOnD7 » 

oJ.rLln 1 » 


1 700 1 £ 

X r££l6 


MMU 


030230 


RFCFFC 




CI cun 
oLtNL; 


A1 ^71 A 

016 f 14 


rnuERR 


006016 




003156 


CI Af*AA 

oLULOO 


AA^AI A 

OOoOlO 


MMUTRP 


030402 






CI A/^A1 


AATA 1 ^ 
0O2012 


rtlVEC • 


000250 


RTTFOA 


004 04? 


CDC 

orb 


AAt 1 AA 

003100 


MSFR - 


177744 


RRIiEH 




CDC 1 


AA"* 1 AO 


NATREG- 


177520 


RUTMFM 




OKO " 


1 77P70 


NEUADD 


003030 






CD1 s 
oKl * 


1 77P7A 


NEUOAT 


004044 


R7 " 


Wn/v f 


COO m 

oKc * 


1 77«t7iL 
1 1 1 J 'O 


NOABRT 


032650 


von 




cot X 

OKO " 


1 r£jlO 


NOSLU 


016716 


^Aui nr 




o 1 MLIv " 


AA1 1 AA 

OOXXOO 


NOTOK 


030460 


^AUMRA 
jfs vnnv/ 




CT ADT 

o 1 nH 1 


A/VA A£A 

OOAOoO 


NULL - 


000000 






CTDAT * 
O 1 OU 1 " 


AA1 AAA 

OOlOOO 


NXTST 


011552 






o 1 RLn 1 » 


1 7777A 


OK 


030436 






CUD 

oMK 


AA1 1 A A 
001140 


OKI 


030464 


SAVPOS 


003162 


SwKcG 


0O0176 


0N0Q22 


027772 


SAVSUP 


003040 


CI ITCCI 

oU 1 bbL 


A1 77CA 
01 1 '50 


PAR 


030352 


SAVSUR 


003052 


CI lA * 


A/\AAA1 
000001 


PARABT 


004056 


SAVTIM 


003016 


CI l/\A * 


OOOOOl 


PAREND 


007452 


SAVUSE 


003042 


CIJA1 « 


000002 


PARINT 


007444 


SAV30 


004146 


CI lA-i » 


AAAAAA 
000004 


PARPAT 


003014 


SAV32 


004150 


CI 1A1 . 


AAAA 1 A 
OOOOlO 


PARI 


030354 


SCOPE » 


000004 


CIJAJI « 


AAAA'iA 
000020 


PATT 


006324 


SDPARO- 


172260 


OWV J * 




PCR 


177522 


SDPARl" 


172262 


SU06 - 


000100 


POR 


030330 


SDPAR2- 


172264 


SU07 - 


000200 


PDRl 


030332 


S0OAR3- 


172266 


SU08 " 


000400 


PIR • 


177772 


S0PAR4- 


172270 


SU09 > 


001000 


PIRQ > 


177772 


S0PAR5- 


172272 


SUl « 


000002 
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SEQ 0153 



SUlO - 002000 
sun - 004000 
SU12 > 010000 
SU13 • 020000 
SU14 - 040000 
SU15 • 100000 
SU2 » 000004 
SU3 « 000010 
SW4 » 000020 
SW5 •= 000040 
SU6 » 000100 
SU7 - 000200 
SU8 = 000400 
SU9 > 001000 
TABl 003240 
TABIO 003370 
TABU 003400 
TABllA 003410 
TAB12 003420 
TAB13 003430 
TAB13B 003440 
TAB14 003450 
TAB15 003460 
TAB 16 003470 
TAB17 003500 
TAB18 003510 
TAB2 003250 
TAB21 003520 
TAB22 003530 
TAB23 003540 
TAB24 003550 
TAB25 003560 
TAB26 003570 
TAB27 003600 
TAB28 003610 
TAB29 003620 
TAB29A 003630 
TAB3 003260 
TAB30 003640 
TAB31 003650 
TAB32 003660 
TAB33 003670 
TAB34 003700 
TAB4 003270 
TAB40 003710 
TAB41 003720 
TAB42 003730 
TA843 003740 
TAB45 003750 
TAB46 003760 
TAB47 003770 
TAB47A 004000 
TAB48 004010 
TAB49 004020 
TAB5 003300 
TAB5A 003310 
TA66 003320 



TAB6A 003330 
TAB7 003340 
TABS 003350 
TAB9 003360 
TBITVE- 000014 
TCHAR 003004 
TCOUNT 002360 
TEMP 002740 
TIMERR 006050 
TIMOUT 003000 
TKVEC - 000060 
TOUT 030220 
TPVEC » 000064 
TRAPVE- 000034 
TRPFLG 030532 
TRTVEC- 000014 
TSTAOO 003026 
TSTLOC 003166 
TSTl 005220 
TSTIO 010532 
TSTll 011552 
TST12 011762 
TST13 012332 
TST14 012546 
TST15 012706 
TST16 013104 
TST17 013302 
TST2 005502 
TST20 013700 
TST21 014056 
TST22 015100 
TST23 015654 
TST24 016266 
TST25 016720 
TST26 017134 
TST27 017434 
TST3 006102 
TST30 017712 
TST4 006342 
TST5 006570 
TST6 007452 
TST7 010200 
TYPDS » 104405 
TYPE » 104401 
TYPOC « 104402 
TYPON « 104404 
TYPOS - 104403 
UOPARO« 177660 
U0PAR1» 177662 
U0PAR2- 177664 
U0PAR3' 177666 
U0PAR4- 177670 
U0PAR5- 177672 
U0PAR6- 177674 
U0PAR7" 177676 
UOPORO- 177620 
UOPORl- 177622 



t 



L12 



coKooeo 


KDJll DA 


CLUSTER DIAG. 


MACRO V05.03 


Uednesday 


09 Apr 


Symbol 


table 












U0PW2' 


177624 




tATYl 


032652 


$ENOAD 


031732 


UOPOfiS- 


177626 




♦ ATY3 


032660 


♦ENDCT 


031700 


UOPOkA- 


177630 




(ATY4 


032670 


$ENOMG 


031751 




177632 




tAUTOe 


001134 


$ENULL 


031746 


LOP0«6" 


1776T4 




$BASE 


001254 


iENV 


001220 




l77b36 




$BOA[)R 


OOI122 


»ENVn 


001221 


UFOFLG 


004152 




iBODAT 


001126 


$EOP 


031632 


Ur DSET" 


000001 




$BELL 


001170 


»EOPCT 


051672 


UIPARO" 


177640 




JCDUl 


001260 


$ERFLG 


001103 


UIPARl" 






$CDU2 


001262 


JERnflX 


001115 




177644 




$CHARC 


/\7 Yil C/\ 

033450 


♦ERROR 


032270 


1 iT.j Jin V _ 


177646 




$CKSklR 


034126 


♦ERRPC 


001116 


UIrAH4* 


177650 




♦CUT AG 


001100 


»ERRTB 


001324 


UlrARS" 


177652 




$CM3 « 


000000 


♦ERTTL 


001112 




177654 




$CH4 ' 


000002 


?ESCAP 


001166 


UIPAR?" 


177656 




JCNTLG 


034663 


JETABL 


001220 


UlrORO" 


177600 




»CNTLU 


034656 


$ETEND 


001324 




177602 




iCPUOP 


001226 


♦FATAL 


001202 




177604 




♦CRLF 


AA1 1 7C 

001175 


♦rPLb 


ATT 4 1 £ 

033116 


UIPuR3" 


177606 




$DBLK 


034116 


♦FILLC 


001156 


UIruK4» 


1 / f610 




$00U0 


AA1 

001264 


♦r ILLS 


001x55 




177612 




$0DU1 


AAl 'l^.^ 
001200 


♦bUADK 


001120 




177614 




$D0U10 


AA 4 V 4 A 

001310 


A f*AA A T 

♦GDUAT 


001124 




177616 




iOOUll 


AA t V 1 ^ 

001312 


♦GET42 


ATI 

031722 


UUUlt 1 






$00U12 


AA 1 T 1 A 


4PTCI ID 


ATil 1 7C 


VIKtUr' 






$00U13 


AA 1 T 1 


♦nU * 


AAAAA1 
000001 


vrtvUH 


AA^ 1 C£ 




$00U14 


AA1 T^A 
(JO 1320 


ALJTOTC 

♦nlD 1 b 


AAAOTO 

000232 


\ir\CkC 1 
vUdcI 


00<:34d 




♦00U15 


AA1 ^^"5 

001322 


* LIT APT 

♦nHJC I 


ATCA1 0 

035012 








$00U2 


AAf 07A 

0012 '0 


* TPWT 

♦ ILNT 


AA 4 4 AA 
001104 


VUKHl 


AA-^TCA 




$00U3 


AAi 

0012 Id 


ATI 1 1 ID 

♦ ILLLr" 


035236 




AAOil AA 




$00U4 


AA 4 Til 

0012 '4 


4 TklT AP 
♦ IN 1 At> 


AA 4 4 TC 

001135 


UP 






$0DU5 


AAl 

0012 /O 


i TTCMD 

♦ J. 1 tnb 


AA 4 4 1 

0ulll4 








$00U6 


AAl TAA 
VU1300 


♦ Lr 


AA 4 1 
0011 10 








$DDU7 


AAl lA'i 

001302 


A 1 CI P 

♦ LrLG 


ATT 4 4 C 

033115 


XBUF • 


177566 




$0DU6 


001304 


♦LPAOR 


001106 


XBUFl • 


176506 




$00U9 


001306 


♦LPERR 


001110 


VPCD ■ 






*OEVCT 


001210 


♦HHLml 




XCSRl ■ 


176504 




JDEVM 


001256 


iMAOP? 




$APTHD 


000232 




$OOAGN 


031742 


♦MADR3 


001242 


»ATYC 


032676 




*OTBL 


034106 


»MADR4 


001246 


. ABS. 


035254 


000 


(RU.I.GBL.ABS.OVR) 








000000 


001 


(RU.I.LCL.REL.CON) 







Errors detected: 0 



Assembler statistics 



Work file reads: 400 
Work file writes: 301 

Size of work file: 55224 Uords ( 216 Pages) 

Size of core pool: 1%84 Uords ( 75 Pages) 

Operating system: RSX-llM/PLUS (Under WAX/VMS) 

Flapsed time: 00:02:59.53 

CQKtoeO . CQKOOeO/ - SP-ORION . MLB/rt. . COKDOBO . riAC/DS : GBL 
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SEQ 0154 



♦MAIL 001200 

$MAMS1 001230 

$MAMS2 001234 

*MAMS3 001240 

♦MAMS4 001244 

»MBAOR 000234 

JMFLG 033114 

♦MNEU 034701 

$MSGAD 001214 

$MSGLG 001216 

♦MSGTY 001200 

JMSUR 034670 

♦MTYPl 001231 

♦MTYP2 001235 

♦MTY-'B 001241 

♦MTYP4 001245 

»MXCNT 032266 

$NULL 001154 

♦NUTST» 000000 

$OCNT 033676 

♦OMODE 033700 

$OVER 032244 

tPASS 001206 

$PASTM 000240 

$POUER 035244 

♦PURDN 035076 

$PURMG 035232 

IPURUP 035150 

$QUES 001174 

$ROCHR 034410 

♦RDLIN 034540 

♦RDOCT 034712 

$RDSZ ' 000010 

♦RTNAO 031744 

$SAVR6 035242 

♦SCOPE 031766 

♦SETUP» 000137 

$STUP = 177777 

tSVLAD 032210 



»SVPC ■ 000232 

♦SUR - 167400 

♦SUREG 001222 

»SURMK« 000300 

♦TESTN 001204 

♦TIMES 001164 

♦TKB 001146 

♦TKS 001144 

♦TMPO 001160 

♦TMPl 001162 

♦TN ' 000031 

♦TPB 001152 

♦TPFLG 001157 

♦TPS 001150 

♦TRAP 035014 

♦TRAP2 035036 

♦TRP - 000013 

♦TRPAD 035050 

♦TSTM 000236 

♦TSTNM 001102 

♦TTYIN 034646 

♦TYPOS 033702 

♦TYPE 033120 

♦TYPEC 033332 

♦TYPEX 033452 

STYPOC 033500 

♦TYPON 033514 

♦TYPOS 033454 

♦UNIT 001212 

♦UNITM 000242 

♦USUR 001224 

♦VECTl 001250 

♦VECT2 001252 

♦XOFF » 000023 

♦XON » 000021 

♦XTSTR 032006 

♦♦GET4* 000000 

♦OFILL 033677 

.♦X - 000232 



